From: Gisle Aas <gisle@aas.no>
Date: Wed, 14 Oct 1998 15:53:14 +0000 (+0200)
Subject: Re: chr(0xFFFF_FFFF) and "\x{10_FFFF}" [PATCH 5.005_52]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fcdcf62629082be5a88c14d24a5546ea958b0f7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;