Fix handling of doubled backslash.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index bcfa0cd47c31e9c97420ec0b386c1ca2ec6ea986..c5c939f8f3f7c6e20f8f42be616612ac5987e104 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-21  Bruno Haible  <bruno@clisp.org>
+
+       * x-perl.c (extract_quotelike_pass3): Fix handling of double backslash.
+
 2003-06-19  Bruno Haible  <bruno@clisp.org>
 
        * x-perl.c (enum string_type_ty): Remove trailing comma.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 6152ad05294e82782129c6002bb77351ce148a4d..8401289c87469fc3b2196a2c4a9639c9b09ff001 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -1029,10 +1029,8 @@ extract_quotelike_pass3 (token_ty *tp, int error_level)
              ++crs;
              continue;
            case '\\':
-             /* FIXME: This looks buggy.  */
-             if (crs[1])
-               buffer[bufpos++] = crs[1];
-             crs++;
+             buffer[bufpos++] = *crs;
+             ++crs;
              continue;
            }
        }