Cross Reference: taint_warn
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
lib
/
sample-tests
/
taint_warn
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
taint_warn revision 1
1
N/A
#!/
usr
/
bin
/
perl
-tw
1
N/A
1
N/A
use
lib
qw
(
t
/
lib
)
;
1
N/A
use
Test
::
More
tests
=>
1
;
1
N/A
1
N/A
my
$warnings
=
''
;
1
N/A
{
1
N/A
local
$SIG
{
__WARN__
} =
sub
{
$warnings
.=
join
''
, @_ };
1
N/A
kill
0
, $^X;
1
N/A
}
1
N/A
like
(
$warnings
,
'/^Insecure dependency/'
,
'-t honored'
)
;