diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-11 14:08:20 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-11 14:08:20 +0000 |
commit | 3a3c44472a318717ec0cdc0a7f768125ae0f001f (patch) | |
tree | 5e068b0d32d9904e2ad08658e1039a9e19088d72 /t | |
parent | c80f55d1ea34dba13189e54d4f4e9bce7de39357 (diff) | |
download | perl-3a3c44472a318717ec0cdc0a7f768125ae0f001f.tar.gz |
Remove the 'asciir' re subpragma. Should instead implement
the 'physical vs logical' range scheme:
\xAA-\xCC is a native physical range, you want that range of
codepoints in your native encoding. In EBCDIC the codepoints
in the gaps (between i-j and r-s) should be included.
\x{AA}-\x{CC} is a physical Unicode range, you want that range of
codepoints in Unicode.
a-z is a logical range, you want that range of 'logical' codepoints
in your native encoding. In EBCDIC the codepoints in the gaps
(between i-j and r-s) should not be included.
Mixed cases (a-\xAA, etc) should either be errors, or maybe
the 'logical' endpoints should be converted to native/Unicode
codepoints, and the range handled as a physical range.
'Logical endpoints' are to be recognized only in the A-Z, a-z,
and 0-9 ranges. Probably a warning should be given for mixed
cases like A-z or a-9 (since such expressions are encoding
dependent), with a recommendation to use physical ranges.
p4raw-id: //depot/perl@10085
Diffstat (limited to 't')
-rwxr-xr-x | t/op/pat.t | 2 | ||||
-rwxr-xr-x | t/op/regexp.t | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 1be72346f8..0df4d786ee 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -13,8 +13,6 @@ BEGIN { @INC = '../lib'; } -use re 'asciirange'; # Compute ranges in ASCII space - eval 'use Config'; # Defaults assumed if this fails $x = "abc\ndef\n"; diff --git a/t/op/regexp.t b/t/op/regexp.t index 0b81e714a9..4a4d42fd98 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -36,8 +36,6 @@ BEGIN { @INC = '../lib'; } -use re 'asciirange'; # ranges are computed in ASCII - $iters = shift || 1; # Poor man performance suite, 10000 is OK. open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests') || |