[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");
}
}