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.t9
1 files changed, 7 insertions, 2 deletions
diff --git a/contrib/perl5/t/lib/glob-taint.t b/contrib/perl5/t/lib/glob-taint.t
index a8dc213..4c09903 100755
--- a/contrib/perl5/t/lib/glob-taint.t
+++ b/contrib/perl5/t/lib/glob-taint.t
@@ -2,7 +2,12 @@
BEGIN {
chdir 't' if -d 't';
- unshift @INC, '../lib';
+ 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";
@@ -18,7 +23,7 @@ $loaded = 1;
print "ok 1\n";
# all filenames should be tainted
-@a = File::Glob::glob("*");
+@a = File::Glob::bsd_glob("*");
eval { $a = join("",@a), kill 0; 1 };
unless ($@ =~ /Insecure dependency/) {
print "not ";
OpenPOWER on IntegriCloud