diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/glob-basic.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index b967e8d033..47280831a9 100755 --- a/t/lib/glob-basic.t +++ b/t/lib/glob-basic.t @@ -14,6 +14,7 @@ END { print "not ok 1\n" unless $loaded; } use File::Glob ':glob'; +use Cwd (); $loaded = 1; print "ok 1\n"; @@ -72,7 +73,9 @@ print "ok 5\n"; # check bad protections # should return an empty list, and set ERROR -if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS' or $^O eq 'cygwin' or not $>) { +if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS' + or $^O eq 'cygwin' or Cwd::cwd() =~ m#^/afs#s or not $>) +{ print "ok 6 # skipped\n"; } else { |