1N/A# By Brandon S. Allbery 1N/A# This library is no longer being maintained, and is included for backward 1N/A# compatibility with Perl 4 programs which may require it. 1N/A# In particular, this should not be used as an example of modern Perl 1N/A# programming techniques. 1N/A# Suggested alternative: Cwd 1N/A# Usage: $cwd = &getcwd; 1N/A unless (
opendir(
getcwd'PARENT, $dotdots)) #'))
1N/A warn "opendir($dotdots): $!";
1N/A warn "stat($dotdots): $!";
1N/A warn "readdir($dotdots): $!";
1N/A unless (@
tst =
lstat(
"$dotdots/$dir"))
1N/A # warn "lstat($dotdots/$dir): $!"; 1N/A # closedir(getcwd'PARENT); #');