Fix handling of double backslashes in single-quoted strings.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index f67b9630e4f45300a56d3f8cad3090cff47a55fe..2026c962fada4a2578e22c4e98e7878cd0b9fcb4 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-23  Guido Flohr  <guido@imperia.net>
+
+       * x-perl.c (extract_quotelike_pass3): Fix handling of doubled
+       backslashes in single-quoted strings.
+
 2003-06-23  Bruno Haible  <bruno@clisp.org>
 
        * format-perl-bracket.c (format_check): Allow additional bracketed

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index b9d9c08b641ea48d0f9112fe3fe700495cebbfe3..e11923b433454e0cdc5459119da30b87d976a1ce 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -827,7 +827,7 @@ extract_quotelike_pass3 (token_ty *tp, int error_level)
            case '\\':
              if (crs[1] == '\\')
                {
-                 ++crs;
+                 crs += 2;
                  buffer[bufpos++] = '\\';
                  break;
                }