[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.65,1.66"

[Martin Quinson]

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

Modified Files:
	Sgml.pm 
Log Message:
Unprotect <\![ toto [ blocs in any cases; uniformize blank chars in any cases

Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- Sgml.pm	12 Sep 2005 10:43:03 -0000	1.65
+++ Sgml.pm	13 Sep 2005 12:43:32 -0000	1.66
@@ -892,16 +892,12 @@
 	    $cdata =~ s/{PO4A-lt}/</g;
 	    $cdata =~ s/{PO4A-gt}/>/g;
 	    $cdata =~ s/{PO4A-amp}/&/g;
-	    if ($cdata =~ /(({PO4A-(beg|end)[^\}]*})|\s)+$/ &&
-		$cdata =~ /\S/) {
-		$cdata =~ s/\s*{PO4A-end}/\]\]>\n/g;
-		$cdata =~ s/\s*{PO4A-beg-([^\}]+)}/<!\[$1\[\n/g;
-	    } else {
-		if (!$verb) {
-		    $cdata =~ s/\\t/ /g;
-		    $cdata =~ s/\s+/ /g;
-		    $cdata =~ s/^\s//s if $lastchar eq ' ';
-		}
+            $cdata =~ s/\s*{PO4A-end}/\]\]>\n/g;
+            $cdata =~ s/\s*{PO4A-beg-([^\}]+)}/<!\[$1\[\n/g;
+            unless ($verb) {
+              $cdata =~ s/\\t/ /g;
+              $cdata =~ s/\s+/ /g;
+	      $cdata =~ s/^\s//s if $lastchar eq ' ';
 	    }
 	    $lastchar = substr($cdata, -1, 1);
 	    $buffer .= $cdata;