diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap index dbd5d68..4cf4182 100755 --- a/mvwrap/mvwrap +++ b/mvwrap/mvwrap @@ -190,7 +190,11 @@ sub which_doubles { foreach (keys %selector) { if ( scalar(@{$selector{$_}}) > 1 ) { print "Doubles detected:\n"; - map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}}; + if (@pattern) { # non-interactief + map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}}; + } else { # interactief + map {print "[line: $_] $source[$_] -> $target[$_]\n";} @{$selector{$_}}; + } } } }