Home
last modified time | relevance | path

Searched refs:is_tainted (Results 1 – 12 of 12) sorted by relevance

/openbsd/gnu/usr.bin/perl/t/op/
H A Dtaint.t112 sub is_tainted {
247 is_tainted($foo);
256 is_tainted($foo);
1236 is_tainted($0);
1643 is_tainted($a);
1644 is_tainted($b);
1876 is_tainted($1);
1877 is_tainted($l);
1885 is_tainted($1);
1886 is_tainted($l);
[all …]
/openbsd/gnu/usr.bin/perl/lib/
H A Dbuiltin-taint.t21 use builtin qw( is_tainted );
23 is(is_tainted($0), !!${^TAINT}, "\$0 is tainted (if tainting is supported)");
24 ok(!is_tainted($1), "\$1 isn't tainted");
29 my $_dummy = is_tainted($tied);
32 $tied = is_tainted($0);
35 is(prototype(\&builtin::is_tainted), '$', 'is_tainted prototype');
H A Dbuiltin.t634 for my $func (qw(is_bool is_weak blessed refaddr reftype ceil floor is_tainted
/openbsd/gnu/usr.bin/perl/ext/File-Find/lib/File/
H A DFind.pm260 if (( $untaint ) && (is_tainted($dir) )) {
285 if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) {
337 if (( $untaint ) && (is_tainted($p_dir) )) {
371 if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_rel) )) ) {
553 if (( $untaint ) && (is_tainted($dir_loc) )) {
600 if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_loc) )) ) {
788 *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted;
/openbsd/gnu/usr.bin/perl/t/perf/
H A Dopcount.t784 sub { builtin::is_tainted($0); },
787 is_tainted => 1,
/openbsd/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/
H A DPerldoc.pm2032 return is_tainted($v);
2037 sub is_tainted { # just a function subroutine
/openbsd/gnu/usr.bin/perl/dist/Storable/
H A DStorable.xs1756 stcxt_t *cxt, int optype, int is_tainted) in init_retrieve_context() argument
1793 cxt->s_tainted = is_tainted; in init_retrieve_context()
7374 int is_tainted; /* Is input source tainted? */ in do_retrieve() local
7497 is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted); in do_retrieve()
7498 TRACEME(("input source is %s", is_tainted ? "tainted" : "trusted")); in do_retrieve()
7499 init_retrieve_context(aTHX_ cxt, optype, is_tainted); in do_retrieve()
/openbsd/gnu/usr.bin/perl/regen/
H A Dopcodes599 is_tainted is_tainted ck_null fs1
/openbsd/gnu/usr.bin/perl/lib/B/
H A DOp_private.pm426 $bits{is_tainted}{0} = $bf[0];
H A DDeparse.t3367 $x = builtin::is_tainted($x);
/openbsd/gnu/usr.bin/perl/pod/
H A Dperlsec.pod178 Or you may be able to use the following C<is_tainted()> function.
180 sub is_tainted {
H A Dperl5380delta.pod401 Added the C<is_tainted()> builtin function. [L<GH #19854|https://github.com/Perl/perl5/issues/19854…