From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 May 2001 13:49:29 +0000 (+0000)
Subject: AFS patches from Merijn Broeren <merijnb@iloquent.nl>.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eca1c0730dd69cff38a30045e5660f1fba91a480;p=p5sagit%2Fp5-mst-13.2.git

AFS patches from Merijn Broeren <merijnb@iloquent.nl>.
(Also Configure tweaks needed; coming up soon.)

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

diff --git a/t/io/fs.t b/t/io/fs.t
index ec14e62..c445d5e 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -111,7 +111,7 @@ if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
     $blksize,$blocks) = stat('b');
 if ($^O eq 'MSWin32') { print "ok 17 # skipped: bogus (stat)[1]\n"; }
 elsif ($ino) {print "ok 17\n";} else {print "not ok 17\n";}
-if ($wd =~ m#/afs/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32')
+if ($wd =~ m#$Config{'afsroot'}/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32')
     {print "ok 18 # skipped: granularity of the filetime\n";}
 elsif ($atime == 500000000 && $mtime == 500000000 + $delta)
     {print "ok 18\n";}
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index fe7f9ef..e8aef85 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -79,7 +79,7 @@ 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 Cwd::cwd() =~ m#^/afs#s or not $>)
+    or $^O eq 'cygwin' or Cwd::cwd() =~ m#^$Config{'afsroot'}#s or not $>)
 {
     print "ok 6 # skipped\n";
 }
diff --git a/t/op/stat.t b/t/op/stat.t
index 1d8c7a3..f7a2a4e 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -69,7 +69,7 @@ else {print "# \$nlink is |$nlink|\nnot ok 3\n";}
 if (   $Is_Dosish
         # Solaris tmpfs bug
 	|| ($cwd =~ m#^/tmp# and $mtime && $mtime==$ctime && $^O eq 'solaris')
-	|| $cwd =~ m#/afs/#
+    || $cwd =~ m#$Config{'afsroot'}/#
 	|| $^O eq 'amigaos') {
     print "ok 4 # skipped: different semantic of mtime/ctime\n";
 }