[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.85,1.86"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Merge some strings.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- TeX.pm	15 May 2006 15:56:31 -0000	1.85
+++ TeX.pm	15 May 2006 15:58:56 -0000	1.86
@@ -1324,12 +1324,13 @@
                 $count++;
                 goto TEST_TYPE;
             } else {
+                my $reason = dgettext("po4a",
+                                      "An optional argument ".
+                                      "was provided, but a mandatory one ".
+                                      "is expected.");
                 die wrap_ref_mod($self->{ref}, "po4a::tex",
-                                 dgettext("po4a",
-                                     "Command '%s': An optional argument ".
-                                     "was provided, but a mandatory one ".
-                                     "is expected.")."\n",
-                                 $command);
+                                 dgettext("po4a", "Command '%s': %s")."\n",
+                                 $command, $reason);
             }
             if ($have_to_be_translated) {
                 ($t, @e) = translate_buffer($self,$opt,(@$env,$command.$type."#".$count.$type_end{$type}));
@@ -1435,12 +1436,13 @@
                 $count++;
                 goto TEST_TYPE;
             } else {
+                my $reason = dgettext("po4a",
+                                      "An optional argument ".
+                                      "was provided, but a mandatory one ".
+                                      "is expected.");
                 die wrap_ref_mod($self->{ref}, "po4a::tex",
-                                 dgettext("po4a",
-                                     "Command '%s': An optional argument ".
-                                     "was provided, but a mandatory one ".
-                                     "is expected.")."\n",
-                                 $command);
+                                 dgettext("po4a", "Command '%s': %s")."\n",
+                                 $command, $reason);
             }
 
             if ($have_to_be_translated) {
@@ -1523,7 +1525,7 @@
         } else {
             $check = 0;
             $reason = dgettext("po4a",
-                               "Command '%s': An optional argument was ".
+                               "An optional argument was ".
                                "provided, but a mandatory one is expected.");
         }
     }