diff options
author | John Ankarström <john@ankarstrom.se> | 2021-05-03 21:50:54 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-05-03 21:50:54 +0200 |
commit | 247f473497615712c0de1bd37549c8f799edb285 (patch) | |
tree | 146cfd48d85e78d27bb4198c5afd62ccf6903037 | |
parent | b1ac910f720d875e66d672e5c15f7c2f12a8cea6 (diff) | |
download | xutil-247f473497615712c0de1bd37549c8f799edb285.tar.gz |
mkmv: Fix bug
-rwxr-xr-x | mkmv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10,7 +10,7 @@ getopts('t:', \%opt); &usage if not @ARGV; mkdir "$opt{t}.tmp" or die "Could not create directory $opt{t}.tmp: $!\n"; -mv $_, "$opt{t}/$_" or warn "Could not move $_ to $opt{t}/$_: $!\n" for @ARGV; +mv $_, "$opt{t}.tmp/$_" or warn "Could not move $_ to $opt{t}/$_: $!\n" for @ARGV; mv "$opt{t}.tmp", $opt{t} or warn "Could not move $opt{t}.tmp to $opt{t}: $!\n"; sub usage { &HELP_MESSAGE; exit 1; } |