[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.83,1.84"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Use the ESCAPOE variable instead of '\'.
This will help writing the Texinfo module.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- TeX.pm	6 Mar 2006 23:05:53 -0000	1.83
+++ TeX.pm	15 May 2006 15:53:59 -0000	1.84
@@ -625,8 +625,8 @@
     }
     # verbatim blocks.
     # Buffers starting by \end{verbatim} are handled after.
-    if (in_verbatim(@env) and $buffer !~ m/^\n?\\end\{$env[-1]\*?\}/) {
-        if($buffer =~ m/^(.*?)(\n?\\end\{$env[-1]\*?\}.*)$/s) {
+    if (in_verbatim(@env) and $buffer !~ m/^\n?\Q$ESCAPE\Eend\{$env[-1]\*?\}/) {
+        if($buffer =~ m/^(.*?)(\n?\Q$ESCAPE\Eend\{$env[-1]\*?\}.*)$/s) {
             # end of a verbatim block
             my ($begin, $end) = ($1?$1:"", $2);
             my ($t1, $t2) = ("", "");
@@ -1132,7 +1132,7 @@
 #       environment contains an un-closed bracket)
         if (   ($closed and ($line =~ /^\s*$/ or
                              $line =~ /^\s*$RE_VERBATIM\s*$/))
-            or (in_verbatim(@env) and $line =~ /^\s*\\end{$env[-1]}\s*$/)
+            or (in_verbatim(@env) and $line =~ /^\s*\Q$ESCAPE\Eend{$env[-1]}\s*$/)
            ) {
             # An empty line. This indicates the end of the current
             # paragraph.