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 (file)
--- 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()');