support filenames with spaces

diff --git a/migrate-md5-attr.pl b/migrate-md5-attr.pl
index 8d11867..5e28870 100755 (executable)
--- a/migrate-md5-attr.pl
+++ b/migrate-md5-attr.pl
@@ -23,7 +23,11 @@ while(<$passwd>) {
 
        while( my($k,$v) = each(%h) ) {
                #print "$v  $k\n";
-               system "attr -s md5 -V $v $dir/$k";
+               if ( -e "$dir/$k" ) {
+                       system 'attr', '-s', 'md5', '-V', $v, "$dir/$k";
+               } else {
+                       warn "SKIP $dir/$k\n";
+               }
        }
 
        untie %h;