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
./
#!/
usr
/
bin
/
perl
-tw
use
lib
qw
(
t
/
lib
)
;
use
Test
::
More
tests
=>
1
;
my
$warnings
=
''
;
{
local
$SIG
{
__WARN__
} =
sub
{
$warnings
.=
join
''
, @_ };
kill
0
, $^X;
}
like
(
$warnings
,
'/^Insecure dependency/'
,
'-t honored'
)
;