[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.121,1.122"

[Nicolas FRANCOIS]

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

Modified Files:
	Sgml.pm 
Log Message:
Fix handling of newlines in no-wrap sections.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -d -r1.121 -r1.122
--- Sgml.pm	5 Aug 2007 15:25:22 -0000	1.121
+++ Sgml.pm	5 Aug 2007 15:33:13 -0000	1.122
@@ -879,6 +879,10 @@
 	    $line = $parse->line;
 	}
 	my $ref=$refs[$parse->line-1 + $adds - $empty_last_cdata];
+	# In verbatim mode, keep the current line reference.
+	if ($verb) {
+	    $ref=$refs[$parse->line-1];
+	}
 	my $type;
 
 	if ($event->type eq 'start_element') {