show line numbers when moving multiple files to the same name in interactive mode

This commit is contained in:
Ward Wouts 2002-12-12 10:40:38 +00:00
parent 462de5d6e1
commit 8b06d627bf

View file

@ -190,7 +190,11 @@ sub which_doubles {
foreach (keys %selector) {
if ( scalar(@{$selector{$_}}) > 1 ) {
print "Doubles detected:\n";
if (@pattern) { # non-interactief
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
} else { # interactief
map {print "[line: $_] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
}
}
}
}