use File::Copy

gugod · Apr 21, 2016 · bd32937 · bd32937
1 parent 44a6d88
commit bd32937
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/file-reorg-by-yyyymmdd b/file-reorg-by-yyyymmdd
@@ -3,6 +3,7 @@ use v5.18;
 use strict;
 use warnings;
 
+use File::Copy qw(move);
 use File::Basename qw(fileparse);
 use File::Path qw(make_path);
 use File::Spec::Functions qw(catfile catdir);
@@ -40,8 +41,7 @@ sub main {
             say "mv $file $k";
         } else {
             make_path($new_dir) unless -d $new_dir;
-            link($file, $k);
-            unlink($file);
+            move($file, $k);
         }
     }
 }