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

Gisle Aas <gisle(_at_)aas(_dot_)no> writes:

> I looks like I can't have _ inside \x{} escapes.
>
>   $ perl -le 'use utf8; print unpack("H*", "\x{10_FFFF}")'
>   10
This is a fix:

Index: util.c
===================================================================
RCS file: /usr/home/aas/CVSROOT/perl_52/util.c,v
retrieving revision 1.1.1.1
diff -u -u -r1.1.1.1 util.c
--- util.c      1998/10/06 17:30:51     1.1.1.1
+++ util.c      1998/10/14 13:50:06
@@ -2451,7 +2451,7 @@
     while (len-- && *s) {
        tmp = strchr((char *) PL_hexdigit, *s++);
        if (!tmp) {
-           if (*s == '_')
+           if (*(s-1) == '_')
                continue;
            else {
                dTHR;