From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Apr 2003 07:02:44 +0000 (+0000)
Subject: With AFS the cwds have little chance of agreeing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12b7537a6767323a775ac8297e56a1b366c3cbb3;p=p5sagit%2Fp5-mst-13.2.git

With AFS the cwds have little chance of agreeing.

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

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 3dc624c..2a8df24 100644
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -60,12 +60,14 @@ SKIP: {
     # DCL SHOW DEFAULT has leading spaces
     $start =~ s/^\s+// if $IsVMS;
     SKIP: {
-        skip "'$pwd_cmd' failed, nothing to test against", 4 if $?;
+        skip("'$pwd_cmd' failed, nothing to test against", 4) if $?;
+        skip("/afs seen, paths unlikely to match", 4) if $start =~ m|/afs/|;
 
 	my $cwd        = cwd;
 	my $getcwd     = getcwd;
 	my $fastcwd    = fastcwd;
 	my $fastgetcwd = fastgetcwd;
+
 	is($cwd,        $start, 'cwd()');
 	is($getcwd,     $start, 'getcwd()');
 	is($fastcwd,    $start, 'fastcwd()');