- $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
+ $atime,$mtime,$ctime,$blksize,$blocks) = @st;
+
+ if ($#st == -1) {
+ if ($verbose) {
+ my $ll = readlink $file;
+ if (defined ($ll)) {
+ print STDERR "$progname: dangling symlink: $file -> $ll\n";
+ } else {
+ print STDERR "$progname: unreadable: $file\n";
+ }
+ }
+ next;
+ }