--- toast 2008/03/20 01:29:53 1.452 +++ toast 2008/03/31 19:14:18 1.453 @@ -1283,6 +1283,7 @@ $ditonameidx{$di} = $#names unless exists($ditonameidx{$di}); last if $dir eq "/"; $dir = path($dir, ".."); + last unless -r($dir); last if whiledir # figure out how to get down one level from here { my($pd, $pi) = stat(path($dir, $_));