summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/lib/glob-taint.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/lib/glob-taint.t')
-rwxr-xr-xcontrib/perl5/t/lib/glob-taint.t31
1 files changed, 0 insertions, 31 deletions
diff --git a/contrib/perl5/t/lib/glob-taint.t b/contrib/perl5/t/lib/glob-taint.t
deleted file mode 100755
index 4c09903..0000000
--- a/contrib/perl5/t/lib/glob-taint.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!./perl -T
-
-BEGIN {
- chdir 't' if -d 't';
- if ($^O eq 'MacOS') {
- @INC = qw(: ::lib ::macos:lib);
- } else {
- @INC = '.';
- push @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
- print "1..0\n";
- exit 0;
- }
- print "1..2\n";
-}
-END {
- print "not ok 1\n" unless $loaded;
-}
-use File::Glob;
-$loaded = 1;
-print "ok 1\n";
-
-# all filenames should be tainted
-@a = File::Glob::bsd_glob("*");
-eval { $a = join("",@a), kill 0; 1 };
-unless ($@ =~ /Insecure dependency/) {
- print "not ";
-}
-print "ok 2\n";
OpenPOWER on IntegriCloud