[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.93,1.94"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
 * Added debug information for translate_buffer.
 * Fix function for Texinfo. (is_closed)


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -d -r1.93 -r1.94
--- TeX.pm	17 Jun 2007 00:19:39 -0000	1.93
+++ TeX.pm	7 Aug 2007 21:53:09 -0000	1.94
@@ -640,6 +640,8 @@
     my $t = ""; # a temporary string
 
     if ($buffer =~ /^\s*$/s) {
+        print STDERR "($buffer, at env)\n"
+            if ($debug{'translate_buffer'});
         return ($buffer, @env);
     }
     # verbatim blocks.
@@ -1091,14 +1093,14 @@
     # FIXME: { and } should not be counted in verbatim blocks
     # Remove comments
     $tmp =~ s/($RE_PRE_COMMENT)$RE_COMMENT.*//mg;
-    while ($tmp =~ /^.*?(?<!\\)(?:\\\\)*\{(.*)$/s) {
+    while ($tmp =~ /^.*?(?<!$RE_ESCAPE)(?:$RE_ESCAPE$RE_ESCAPE)*\{(.*)$/s) {
         $opening += 1;
         $tmp = $1;
     }
     $tmp = $paragraph;
     # Remove comments
     $tmp =~ s/($RE_PRE_COMMENT)$RE_COMMENT.*//mg;
-    while ($tmp =~ /^.*?(?<!\\)(?:\\\\)*\}(.*)$/s) {
+    while ($tmp =~ /^.*?(?<!$RE_ESCAPE)(?:$RE_ESCAPE$RE_ESCAPE)*\}(.*)$/s) {
         $closing += 1;
         $tmp = $1;
     }