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