Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv22892
Modified Files:
TransTractor.pm
Log Message:
Fix the by one offset in line number references [Jordi]
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- TransTractor.pm 31 May 2004 04:47:36 -0000 1.17
+++ TransTractor.pm 29 Jun 2004 03:48:29 -0000 1.18
@@ -335,7 +335,7 @@
my $self=shift;
my $filename=shift
or croak(dgettext("po4a","Can't read from file without having a
filename")."\n");
- my $linenum=1;
+ my $linenum=0;
open INPUT,"<$filename"
or croak (sprintf(dgettext("po4a","Can't read from %s:
%s"),$filename,$!)."\n");