# 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.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Cwd
+#
+#
# Usage: $cwd = &getcwd;
sub getcwd
{
do
{
- unless ($dir = readdir(getcwd'PARENT)) #'))
+ unless (defined ($dir = readdir(getcwd'PARENT))) #'))
{
warn "readdir($dotdots): $!";
closedir(getcwd'PARENT); #');
return '';
}
- unless (@tst = stat("$dotdots/$dir"))
+ unless (@tst = lstat("$dotdots/$dir"))
{
- warn "stat($dotdots/$dir): $!";
- closedir(getcwd'PARENT); #');
- return '';
+ # warn "lstat($dotdots/$dir): $!";
+ # closedir(getcwd'PARENT); #');
+ # return '';
}
}
while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] ||
}
$cwd = "$dir/$cwd";
closedir(getcwd'PARENT); #');
- } while ($dir);
+ } while ($dir ne '');
chop($cwd);
$cwd;
}