Searched refs:is_tainted (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DFind.pm709 if (( $untaint ) && (is_tainted($dir) )) {
734 if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) {
779 if (( $untaint ) && (is_tainted($p_dir) )) {
817 if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_rel) )) ) {
1014 if (( $untaint ) && (is_tainted($dir_loc) )) {
1065 if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_loc) )) ) {
1242 *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/
H A DPerldoc.pm1593 return is_tainted($v);
1598 sub is_tainted { # just a function subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs1353 static void init_retrieve_context(pTHX_ stcxt_t *cxt, int optype, int is_tainted)
1384 cxt->s_tainted = is_tainted;
5752 int is_tainted; /* Is input source tainted? */
5831 is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted);
5832 TRACEME(("input source is %s", is_tainted ? "tainted" : "trusted"));
5833 init_retrieve_context(aTHX_ cxt, optype, is_tainted);

Completed in 35 milliseconds