2 # [perl #33173] shellwords.pl and tainting
8 if ($Config::Config{extensions} !~ /\bList\/Util\b/) {
9 print "1..0 # Skip: Scalar::Util was not built\n";
14 use Text::ParseWords qw(shellwords old_shellwords);
15 use Scalar::Util qw(tainted);
19 print "not " if grep { not tainted($_) } shellwords("$0$^X");
22 print "not " if grep { not tainted($_) } old_shellwords("$0$^X");