Re: chr(0xFFFF_FFFF) and "\x{10_FFFF}" [PATCH 5.005_52]

	Message-ID: <m3g1cr9rn9.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@2002

diff --git a/util.c b/util.c
index 0a70c6b..50601b2 100644 (file)
--- a/util.c
+++ b/util.c
@@ -2451,7 +2451,7 @@ scan_hex(char *start, I32 len, I32 *retlen)
     while (len-- && *s) {
        tmp = strchr((char *) PL_hexdigit, *s++);
        if (!tmp) {
-           if (*s == '_')
+           if (*(s-1) == '_')
                continue;
            else {
                dTHR;