From 980cfd4762856d4307b859a846599dee3cc86113 Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Mon, 4 Aug 2003 09:45:28 +0000 Subject: [PATCH] Fix \x handling in 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 bef7b140a..50c9043af 100644 --- a/gettext-tools/src/ChangeLog +++ b/gettext-tools/src/ChangeLog @@ -1,3 +1,8 @@ +2003-08-04 Bruno Haible + + * x-perl.c (extract_quotelike_pass3): Fix \x handling. + Reported by Guido Flohr. + 2003-07-05 Bruno Haible * format-perl-brace.c: Renamed from format-perl-bracket.c. Recognize diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c index 145344bdd..f17f19a9a 100644 --- a/gettext-tools/src/x-perl.c +++ b/gettext-tools/src/x-perl.c @@ -935,7 +935,7 @@ extract_quotelike_pass3 (token_ty *tp, int error_level) unsigned int hex_number = 0; int length; - ++crs; + crs += 2; if (*crs == '{') { const char *end = strchr (crs, '}'); -- 2.47.3