[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.37,1.38

Nicolas FRAN??OIS po4a-devel@lists.alioth.debian.org
Sat, 26 Feb 2005 00:39:04 +0000


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

Modified Files:
	TeX.pm 
Log Message:
Remove some debug stuff.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- TeX.pm	25 Feb 2005 20:17:56 -0000	1.37
+++ TeX.pm	26 Feb 2005 00:39:00 -0000	1.38
@@ -1188,14 +1188,14 @@
     my ($t,@e)=("",());
 
     # check number of arguments
-    die sprintf("wrong number of optional arguments for command $command %d %d\n",scalar(@$opts), $command_parameters{$command}{'nb_opts'})
+    die sprintf("wrong number of optional arguments for command $command\n")
         if (    scalar($command_parameters{$command}{'nb_opts'}) lt scalar(@$opts)
             and $command_parameters{$command}{'nb_opts'} ne -1);
     if (    $command_parameters{$command}{'nb_args'} ne scalar(@$args)
         and $command_parameters{$command}{'nb_args'} ne -1) {
         unless (    $command_parameters{$command}{'nb_args'} eq (scalar(@$args) - 1)
                 and !length(@$args[-1])) {
-    die sprintf("wrong number of arguments for command $command %d %d %d %d\n", scalar(@$args), $command_parameters{$command}{'nb_args'}, (scalar(@$args) + 1), length(@$args[-1]));
+    die sprintf("wrong number of arguments for command $command\n");
         }
     }