Searched defs:tainted (Results 1 - 5 of 5) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dtainted.pl1 # This subroutine returns true if its argument is tainted, false otherwise.
3 sub tainted { subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DBasename.t128 # The empty tainted value, for tainting strings
134 sub tainted ($) { subroutine
138 for (@_) { return 0 unless tainted $_ }
142 print +(tainted(dirname($TAINT.'/perl/lib//')) ? '' : 'not '), "ok 40\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dtaint.t79 # The empty tainted value, for tainting strings
81 # A tainted zero, useful for tainting numbers
94 sub tainted ($) { subroutine
98 for (@_) { return 0 unless tainted $_ }
171 # tainted $TERM is unsafe only if it contains metachars
222 test 12, tainted $foo;
225 die "Taint checks don't seem to be enabled" unless tainted $foo;
228 test 13, not tainted $foo;
231 test 14, tainted $foo;
241 test 19, not tainted
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/Scalar/
H A DUtil.pm13 @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
105 sub tainted { subroutine
145 use Scalar::Util qw(blessed dualvar isweak readonly refaddr reftype tainted weaken isvstring looks_like_number set_prototype);
254 =item tainted EXPR
256 Return true if the result of EXPR is tainted
258 $taint = tainted("constant"); # false
259 $taint = tainted($ENV{PWD}); # true if running under -T
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dembedvar.h1495 #define tainted PL_tainted macro

Completed in 43 milliseconds