From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 3 Mar 2000 16:16:34 +0000 (+0000)
Subject: skip test on AFS (from Hans Ranke <Hans.Ranke@ei.tum.de>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4cf958aac2453eded53a4701d1bec205cf252eb;p=p5sagit%2Fp5-mst-13.2.git

skip test on AFS (from Hans Ranke <Hans.Ranke@ei.tum.de>)

p4raw-id: //depot/perl@5487
---

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index b967e8d..4728083 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 {