line number +1 at detecting doubles

This commit is contained in:
Ward Wouts 2013-01-26 14:12:11 +00:00
parent df843589c0
commit 6092023db3

View file

@ -203,7 +203,7 @@ sub which_doubles {
if (@pattern) { # non-interactief
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
} else { # interactief
map {print "[line: $_] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
map {print "[line: " . ($_ + 1) . "] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
}
}
}