}
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[$[] ||
}
$cwd = "$dir/$cwd";
closedir(getcwd'PARENT); #');
- } while ($dir);
+ } while ($dir ne '');
chop($cwd);
$cwd;
}