Hello,
I noticed that the line number returned by shiftline was one more than it
should be. I think that here's the bug:
...
my $linenum=1;
...
while (defined (my $textline = <INPUT>)) {
$linenum++;
my $ref="$filename:$linenum";
...
With this, the first line is numbered 2, and so on.
The line 338 on TransTractor.pm should say:
my $linenum=0;
Regards,
Jordi Vilalta