[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.47,1.48"

[Nicolas FRANCOIS]

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

Modified Files:
	Po.pm 
Log Message:
The project-history SGML file contains a big URL, which can't be wrapped.
It caused the rest of the paragraph to be appended without being wrapped
in the PO.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- Po.pm	30 Oct 2005 17:46:14 -0000	1.47
+++ Po.pm	8 Nov 2005 16:32:29 -0000	1.48
@@ -1142,6 +1142,11 @@
 	    while (substr($line,$pos-1,1) eq '.' && $pos != -1) {
 		$pos=rindex($line," ",$pos-1);
 	    }
+	    if ($pos == -1) {
+		# There are no spaces in the first $col chars, pick-up the
+		# first space
+		$pos = index($line," ");
+	    }
 	    if ($pos != -1) {
 		my $end=substr($line,$pos+1);
 		$line=substr($line,0,$pos+1);