Merge simple tied handle method calls into S_tied_handle_method().

[p5sagit/p5-mst-13.2.git] / lib / getcwd.pl

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index fcca2ce..1c6b761 100644 (file)
--- 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);                                        #');