diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-25 18:46:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-25 18:46:36 +0000 |
| commit | 1ba5c6696e3dcd1de2d0e5ac9b9f54e28fc0282e (patch) | |
| tree | 3d929d834f5ad8e21fd801fd5b460feb974fe637 /toke.c | |
| parent | d7d9ad0c0eccd5b9ff687cafaaaa26c85d95fc9a (diff) | |
| download | perl-1ba5c6696e3dcd1de2d0e5ac9b9f54e28fc0282e.tar.gz | |
Retract #8929,8930,8932,8933 for now.
p4raw-id: //depot/perl@8935
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 13 |
1 files changed, 6 insertions, 7 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) { - UV i; /* current expanded character */ - UV min; /* first character in range */ - UV max; /* last character in range */ + I32 i; /* current expanded character */ + I32 min; /* first character in range */ + I32 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,12 +1240,11 @@ S_scan_const(pTHX_ char *start) if (min > max) { Perl_croak(aTHX_ - "Invalid [] range \"\\x%"UVxf"-\\x%"UVxf"\" in transliteration operator", - min, max); + "Invalid [] range \"%c-%c\" in transliteration operator", + (char)min, (char)max); } -#ifdef ALPHAS_HAVE_GAPS - /* BROKEN FOR EBCDIC, see regcomp.c:reglass() */ +#ifndef ASCIIish if ((isLOWER(min) && isLOWER(max)) || (isUPPER(min) && isUPPER(max))) { if (isLOWER(min)) { |