[Po4a-devel]Increased line number

Saturday, 26 June 2004

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