This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: chr(0xFFFF_FFFF) and "\x{10_FFFF}" [PATCH 5.005_52]
authorGisle Aas <gisle@aas.no>
Wed, 14 Oct 1998 15:53:14 +0000 (17:53 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 17 Oct 1998 04:07:48 +0000 (04:07 +0000)
Message-ID: <m3g1cr9rn9.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@2002

util.c

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;