diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 16:16:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 16:16:34 +0000 |
| commit | a4cf958aac2453eded53a4701d1bec205cf252eb (patch) | |
| tree | c892050340715c0a5a1d4228cab3d05c1b4b381c /t | |
| parent | c93fa8177be816b728baa070d16f5574403845f6 (diff) | |
| download | perl-a4cf958aac2453eded53a4701d1bec205cf252eb.tar.gz | |
skip test on AFS (from Hans Ranke <Hans.Ranke@ei.tum.de>)
p4raw-id: //depot/perl@5487
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 { |