[Po4a-commits] "po4a/lib/Locale/Po4a TransTractor.pm,1.127,1.128"

[Denis Barbier]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv13196/lib/Locale/Po4a

Modified Files:
	TransTractor.pm 
Log Message:
Unit tests had been broken by the last commit about handling of trailing whitespaces.  Use a more conservative approach, trailing spaces are removed only if they do not follow a backslash.



Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -d -r1.127 -r1.128
--- TransTractor.pm	3 Aug 2010 20:34:43 -0000	1.127
+++ TransTractor.pm	13 Aug 2010 20:36:21 -0000	1.128
@@ -917,7 +917,7 @@
     if ($options{'wrap'}||0) {
         $transstring =~ s/( *)$//s;
         my $trailing_spaces = $1||"";
-        $transstring =~ s/  *$/ /gm;
+        $transstring =~ s/(?<!\\) +$//gm;
         $transstring .= $trailing_spaces;
     }