From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Feb 2001 17:33:12 +0000 (+0000)
Subject: (Retracted by #8395.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f3cc9b8480ec4a90c106da77b8c428003fdfdb8;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #8395.)

Slight tweaks in scan_const(), not fixes yet, it seems like
lots of work remains to be done...

p4raw-id: //depot/perl@8933
---

diff --git a/toke.c b/toke.c
index f8d7145..2cb6407 100644
--- a/toke.c
+++ b/toke.c
@@ -1226,9 +1226,9 @@ S_scan_const(pTHX_ char *start)
 	if (PL_lex_inwhat == OP_TRANS) {
 	    /* expand a range A-Z to the full set of characters.  AIE! */
 	    if (dorange) {
-		I32 i;				/* current expanded character */
-		I32 min;			/* first character in range */
-		I32 max;			/* last character in range */
+		UV i;				/* current expanded character */
+		UV min;				/* first character in range */
+		UV max;				/* last character in range */
 
 		i = d - SvPVX(sv);		/* remember current offset */
 		SvGROW(sv, SvLEN(sv) + 256);	/* never more than 256 chars in a range */
@@ -1240,11 +1240,12 @@ S_scan_const(pTHX_ char *start)
 
                 if (min > max) {
 		    Perl_croak(aTHX_
-			       "Invalid [] range \"%c-%c\" in transliteration operator",
-			       (char)min, (char)max);
+			       "Invalid [] range \"\\x%"UVxf"-\\x%"UVxf"\" in transliteration operator",
+			       min, max);
                 }
 
-#ifndef ASCIIish
+#ifdef ALPHAS_HAVE_GAPS
+		/* BROKEN FOR EBCDIC, see regcomp.c:reglass() */ 
 		if ((isLOWER(min) && isLOWER(max)) ||
 		    (isUPPER(min) && isUPPER(max))) {
 		    if (isLOWER(min)) {