line number +1 at detecting doubles
This commit is contained in:
parent
df843589c0
commit
6092023db3
1 changed files with 1 additions and 1 deletions
|
|
@ -203,7 +203,7 @@ sub which_doubles {
|
||||||
if (@pattern) { # non-interactief
|
if (@pattern) { # non-interactief
|
||||||
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
map {print "$source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
||||||
} else { # interactief
|
} else { # interactief
|
||||||
map {print "[line: $_] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
map {print "[line: " . ($_ + 1) . "] $source[$_] -> $target[$_]\n";} @{$selector{$_}};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue