diff --git a/files.pl b/files.pl index c39bd2a7..b792d7c1 100755 --- a/files.pl +++ b/files.pl @@ -32,6 +32,7 @@ sub usage { sub wanted { my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = stat($_); + return unless defined $size; my $path = $File::Find::name; $path =~ tr/\//;/; # delimiter $path =~ tr/;.a-zA-Z0-9-/_/c; # ditch whitespace and other chars