This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate tests for tainting of globs, skipped since 1999.
authorNicholas Clark <nick@ccl4.org>
Sun, 27 Feb 2011 11:54:05 +0000 (11:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 27 Feb 2011 21:56:21 +0000 (21:56 +0000)
Commit 72b166521443a1b8 changed perl to using File::Glob to implement the glob
builtin. Previously glob was implemented by spawning a csh, hence globbing was
not allowed on tainted values. The test for this was skipped, but never removed.

t/op/taint.t

index 7e82d1e..fc9fc2f 100644 (file)
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 693;
+plan tests => 691;
 
 $| = 1;
 
@@ -1006,18 +1006,6 @@ SKIP: {
     test tainted $line;
 }
 
-# Globs should be forbidden, except under VMS,
-#   which doesn't spawn an external program.
-SKIP: {
-    skip "globs should be forbidden", 2 if 1 or $Is_VMS;
-
-    my @globs = eval { <*> };
-    test @globs == 0 && $@ =~ /^Insecure dependency/;
-
-    @globs = eval { glob '*' };
-    test @globs == 0 && $@ =~ /^Insecure dependency/;
-}
-
 # Output of commands should be tainted
 {
     my $foo = `$echo abc`;