Re-work the regcomp.sym to remove use of hard tabs. No data change.

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

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index d886018..1c6b761 100644 (file)
--- a/lib/getcwd.pl
+++ b/lib/getcwd.pl
@@ -1,5 +1,15 @@
 # By Brandon S. Allbery
 #
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+# This legacy library is deprecated and will be removed in a future
+# release of perl.
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Cwd
+
+#
 # Usage: $cwd = &getcwd;
 
 sub getcwd
@@ -28,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 = '';
        }
@@ -44,13 +54,13 @@ sub getcwd
                }
                unless (@tst = lstat("$dotdots/$dir"))
                {
-                   warn "lstat($dotdots/$dir): $!";
-                   closedir(getcwd'PARENT);                            #');
-                   return '';
+                   # warn "lstat($dotdots/$dir): $!";
+                   # closedir(getcwd'PARENT);                          #');
+                   # 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);                                        #');