Update of /cvsroot/po4a/po4a/lib/Locale/Po4a In directory haydn:/tmp/cvs-serv6590/lib/Locale/Po4a Modified Files: TransTractor.pm Log Message: Fix Perl syntax Index: TransTractor.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- TransTractor.pm 30 Apr 2004 22:47:58 -0000 1.12 +++ TransTractor.pm 30 Apr 2004 23:26:36 -0000 1.13 @@ -551,8 +551,8 @@ if ($mode eq "before") { if ($self->verbose()) { - map { printf STDERR (dgettext("po4a","Adding the addendum %s before the line:\n%s"), - $filename,$_),"\n" if (/$position/); + map { print STDERR sprintf(dgettext("po4a","Adding the addendum %s before the line:\n%s"), + $filename,$_)."\n" if (/$position/); } @{$self->{TT}{doc_out}}; } @{$self->{TT}{doc_out}} = map { /$position/ ? ($content,$_) : $_ @@ -562,9 +562,9 @@ while (my $line=shift @{$self->{TT}{doc_out}}) { push @newres,$line; if ($line =~ m/$position/) { - printf STDERR (dgettext("po4a", + print STDERR sprintf(dgettext("po4a", "Adding the addendum %s after the section begining with the line:\n%s"), - $filename,mychomp($line)),"\n" if ($self->verbose()); + $filename,mychomp($line))."\n" if ($self->verbose()); while ($line=shift @{$self->{TT}{doc_out}}) { last if ($line=~/$boundary/); push @newres,$line;