[Po4a-devel][CVS] po4a/lib/Locale/Po4a TransTractor.pm,1.12,1.13

[Denis Barbier]

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;