summaryrefslogtreecommitdiff
path: root/t/op/taint.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-02-27 11:54:05 +0000
committerNicholas Clark <nick@ccl4.org>2011-02-27 21:56:21 +0000
commit2644ea75792e7142cc4124f2579ddfe278e562c0 (patch)
treeb0d41a279c02374a13aaae1c66c21a3a92b8139d /t/op/taint.t
parentd40bf27b2d1479df2acf7e7f9b7b96eae0451649 (diff)
downloadperl-2644ea75792e7142cc4124f2579ddfe278e562c0.tar.gz
Eliminate tests for tainting of globs, skipped since 1999.
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.
Diffstat (limited to 't/op/taint.t')
-rw-r--r--t/op/taint.t14
1 files changed, 1 insertions, 13 deletions
diff --git a/t/op/taint.t b/t/op/taint.t
index 7e82d1e5a8..fc9fc2f9b6 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -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`;