diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-25 17:33:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-25 17:33:12 +0000 |
| commit | 6f3cc9b8480ec4a90c106da77b8c428003fdfdb8 (patch) | |
| tree | 634b54e19d027c7a6dc64298330db3af9cbe6fc1 /toke.c | |
| parent | 19dff7e40d92bc1128f00a1505de8b2c3ab01314 (diff) | |
| download | perl-6f3cc9b8480ec4a90c106da77b8c428003fdfdb8.tar.gz | |
(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
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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)) { |