From c84d3b17f0239b6cdeda9bf2510b39be18aec4aa Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Mon, 23 Jun 2003 19:59:18 +0000 Subject: [PATCH] Fix handling of double backslashes in single-quoted strings. --- gettext-tools/src/ChangeLog | 5 +++++ gettext-tools/src/x-perl.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog index f67b9630e..2026c962f 100644 --- a/gettext-tools/src/ChangeLog +++ b/gettext-tools/src/ChangeLog @@ -1,3 +1,8 @@ +2003-06-23 Guido Flohr + + * x-perl.c (extract_quotelike_pass3): Fix handling of doubled + backslashes in single-quoted strings. + 2003-06-23 Bruno Haible * 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 b9d9c08b6..e11923b43 100644 --- 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; } -- 2.47.3