show line numbers when moving multiple files to the same name in interactive mode
This commit is contained in:
parent
462de5d6e1
commit
8b06d627bf
1 changed files with 5 additions and 1 deletions
|
|
@ -190,7 +190,11 @@ sub which_doubles {
|
||||||
foreach (keys %selector) {
|
foreach (keys %selector) {
|
||||||
if ( scalar(@{$selector{$_}}) > 1 ) {
|
if ( scalar(@{$selector{$_}}) > 1 ) {
|
||||||
print "Doubles detected:\n";
|
print "Doubles detected:\n";
|
||||||
|
if (@pattern) { # non-interactief
|
||||||
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
||||||
|
} else { # interactief
|
||||||
|
map {print "[line: $_] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue