[Po4a-commits] "po4a/lib/Locale/Po4a Pod.pm,1.19,1.20"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv12579/lib/Locale/Po4a

Modified Files:
	Pod.pm 
Log Message:
Fix an issue with non breaking spaces. The output translated files were
missing some lines.


Index: Pod.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Pod.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Pod.pm	5 Mar 2006 13:25:07 -0000	1.19
+++ Pod.pm	13 Jun 2006 19:36:24 -0000	1.20
@@ -53,10 +53,10 @@
     my $enc_length = Encode::from_to($nbs_out, "latin1",
                                                $self->get_out_charset);
     if (defined $enc_length) {
-        while ($str =~ m/(^|.*\s)(\S+?)\Q$nbs_out\E(\S+?)(\s.*$|$)/) {
-            $str  = $1||"";
+        while ($str =~ m/(^|.*\s)(\S+?)\Q$nbs_out\E(\S+?)(\s.*$|$)/s) {
+            $str  = (defined $1)?$1:"";
             $str .= "S<$2 $3>";
-            $str .= $4||"";
+            $str .= (defined $4)?$4:"";
         }
     }