ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wat netter

Browse source
This commit is contained in:
Ward Wouts 2013-01-23 10:57:45 +00:00
parent 19040f3a9c
commit bb7716f820
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
safe_mv/safe_mv
View file

@ -29,11 +29,13 @@ sub process {
$target = "$_"; $target = "$_";
$target =~ s/.*\///; $target =~ s/.*\///;
$target = $targetdir."/".$target; $target = $targetdir."/".$target;
if ( -e "$target" ) { if ( -e "$source" ) {
&compare($source, $target); if ( -e "$target" ) {
} elsif ( ! $opt_r ) { &compare($source, $target);
if ( $DEBUG ) { print "mv $_ -> $target\n"; } } elsif ( ! $opt_r ) {
else { move("$_", "$target") or die "move failed: $!"; } if ( $DEBUG ) { print "mv $source -> $target\n"; }
else { move("$source", "$target") or die "move failed $source -> $target: $!"; }
}
} }
} }
} }