Allow added arguments in perl-bracket format strings.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index af72d7132a0d0e85c24c0e3357086641768b1f37..b838f4af3c8c91f7f398a55ac10484a60f27ebef 100644 (file)
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-23  Bruno Haible  <bruno@clisp.org>
+
+       * format-perl-bracket-2: Allow added arguments in msgstr.
+
 2003-06-21  Bruno Haible  <bruno@clisp.org>
 
        * xgettext-26: Add more test cases, some from Guido Flohr.

diff --git a/gettext-tools/tests/format-perl-bracket-2 b/gettext-tools/tests/format-perl-bracket-2
index 5c565d81430569dda8f2935f03cca1cd29193330..bd750c3309c89e1153f03394881ca8243eba4ef7 100755 (executable)
--- a/gettext-tools/tests/format-perl-bracket-2
+++ b/gettext-tools/tests/format-perl-bracket-2
@@ -19,7 +19,7 @@ msgstr "xyz[x1]"
 # Invalid: missing argument
 msgid  "abc[x1]def[x2]"
 msgstr "xyz[x2]"
-# Invalid: added argument
+# Valid: added argument (valid since "[zoo]" expands to itself)
 msgid  "abc[foo]def"
 msgstr "xyz[foo]uvw[zoo]"
 # Valid: multiple reuse of same argument