[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.80,1.81"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Do not extract a trailing command if it is followed by an unexpected
parameter. (wrong cut&paste from get_leading_command)


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- TeX.pm	6 Oct 2005 19:28:23 -0000	1.80
+++ TeX.pm	4 Mar 2006 10:56:00 -0000	1.81
@@ -574,17 +574,9 @@
                              $command, $reason);
         }
         if (@$remainder) {
-            # FIXME: we should also keep the spaces to be idempotent
-            my ($temp,$type,$arg);
-            while (@$remainder) {
-                $type = shift @$remainder;
-                $arg  = shift @$remainder;
-                $temp .= $type.$arg.$type_end{$type};
-                # And remove the same number of arguments from @args
-                pop @args;
-                pop @args;
-            }
-            $buffer .= $temp;
+            # There are some arguments after the command.
+            # We can't extract this comand.
+            $command = "";
         }
     }