X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fgetcwd.pl;h=1c6b761f23b32fe39bcc9cad6c4818a5b55ffe62;hb=ebc1fde647268c1d49a6096baf6ca8a708363f5b;hp=fcca2ced80dd0ea313d21db79fd38346113223b5;hpb=870abcc9ec31b0ec6d369f95516616d679e92b99;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index fcca2ce..1c6b761 100644
--- a/lib/getcwd.pl
+++ b/lib/getcwd.pl
@@ -38,7 +38,7 @@ sub getcwd
 	    closedir(getcwd'PARENT);					#');
 	    return '';
 	}
-	if ($pst[$[] == $cst[$[] && $pst[$[ + 1] == $cst[$[ + 1])
+	if ($pst[0] == $cst[0] && $pst[1] == $cst[1])
 	{
 	    $dir = '';
 	}
@@ -59,8 +59,8 @@ sub getcwd
 		    # return '';
 		}
 	    }
-	    while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] ||
-		   $tst[$[ + 1] != $pst[$[ + 1]);
+	    while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
+		   $tst[1] != $pst[1]);
 	}
 	$cwd = "$dir/$cwd";
 	closedir(getcwd'PARENT);					#');