Fix \x handling in strings.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index bef7b140aa908b5f8d45cfaac27dd6f38fd1602e..50c9043afc17052a023147859e8cf902d1e2d95d 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-04  Bruno Haible  <bruno@clisp.org>
+
+       * x-perl.c (extract_quotelike_pass3): Fix \x handling.
+       Reported by Guido Flohr.
+
 2003-07-05  Bruno Haible  <bruno@clisp.org>
 
        * 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 145344bdd668561395b161c380960d4a321a4dc5..f17f19a9afaa719d16d4464d08fbf39733837073 100644 (file)
--- 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, '}');