[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.62,1.63"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Fix a potential data lost.
More cleanup.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- TeX.pm	18 Sep 2005 12:07:29 -0000	1.62
+++ TeX.pm	18 Sep 2005 12:55:06 -0000	1.63
@@ -461,7 +461,6 @@
                 pop @args;
                 pop @args;
             }
-            print "found1: '$temp'\n";
             $buffer = $temp.$buffer;
         }
     }
@@ -542,7 +541,6 @@
                 pop @args;
                 pop @args;
             }
-            print "found2: '$temp'\n";
             $buffer .= $temp;
         }
     }
@@ -718,6 +716,7 @@
     if (@env and defined $env_separators{$env[-1]}) {
         my $re_separator = $env_separators{$env[-1]};
         my $buf_begin = "";
+# FIXME: the separator may have to be translated.
         while ($buffer =~ m/^(.*?)(\s*$re_separator\s*)(.*)$/s) {
             my ($begin, $sep, $end) = ($1, $2, $3);
             $buf_begin .= $begin;
@@ -732,6 +731,7 @@
             }
             $buffer = $end;
         }
+        $buffer = $buf_begin . $buffer;
     }
 
     # finally, translate