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

6
safe_mv/safe_mv
View file

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