xgettext: Strip multiple ".in" suffixes from the file name.

* xgettext.c (main): Strip multiple ".in" suffixes.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index a2318e2aabc6d6f5aba5bedaa314c512b9d4ad3a..b4ee00b6b66b5c9196603b14d4ea05982dfc608e 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-17  Daiki Ueno  <ueno@gnu.org>
+
+       xgettext: Strip multiple ".in" suffixes from the file name.
+       * xgettext.c (main): Strip multiple ".in" suffixes.
+
 2014-04-16  Daiki Ueno  <ueno@gnu.org>
 
        * msgfmt.c (get_languages): Allow any whitespace character as a

diff --git a/gettext-tools/src/xgettext.c b/gettext-tools/src/xgettext.c
index 0c3e95632e824f1255bc130f2c4eb8388f3e6458..42fdc316e5594688df80b20910bee0d1bafa9014 100644 (file)
--- a/gettext-tools/src/xgettext.c
+++ b/gettext-tools/src/xgettext.c
@@ -777,8 +777,8 @@ This version was built without iconv()."),
 
           reduced = xstrdup (base);
           /* Remove a trailing ".in" - it's a generic suffix.  */
-          if (strlen (reduced) >= 3
-              && memcmp (reduced + strlen (reduced) - 3, ".in", 3) == 0)
+          while (strlen (reduced) >= 3
+                 && memcmp (reduced + strlen (reduced) - 3, ".in", 3) == 0)
             reduced[strlen (reduced) - 3] = '\0';
 
           /* Work out what the file extension is.  */