diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 15:47:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 15:47:43 +0000 |
| commit | ffbc6a930f7d2050ba54ac6bb9f15db93c1fab59 (patch) | |
| tree | 7e81ef584643250fd840d7fda63c1eb7f7a6ddb6 /ext/MIME/Base64 | |
| parent | ed4a5f9986e389ab30cb5ae84d8409ef8d4dcaec (diff) | |
| download | perl-ffbc6a930f7d2050ba54ac6bb9f15db93c1fab59.tar.gz | |
Integrate perlio:
[ 9400]
More EBCDIC tweaks:
- one more swash issue &~(0xA0-1) did not do the right thing,
for UTF-EBCDIC where &~(0x80-1) does for UTF-8.
- add "use re 'asciirange'" to make [!-~] etc. work
use it in MIME::QuotedPrint and t/op/regexp.t and t/op/pat.t
- Choose a key for t/op/each.t test which gets encoded.
- Skip utf8decode if this is UTF-EBCDIC.
p4raw-link: @9400 on //depot/perlio: daf0f78e031c718c75590ef9ef573756f805776e
p4raw-id: //depot/perl@9407
Diffstat (limited to 'ext/MIME/Base64')
| -rw-r--r-- | ext/MIME/Base64/QuotedPrint.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/MIME/Base64/QuotedPrint.pm b/ext/MIME/Base64/QuotedPrint.pm index 069f3226e9..b72a4b905c 100644 --- a/ext/MIME/Base64/QuotedPrint.pm +++ b/ext/MIME/Base64/QuotedPrint.pm @@ -71,6 +71,7 @@ require Exporter; $VERSION = sprintf("%d.%02d", q$Revision: 2.3 $ =~ /(\d+)\.(\d+)/); +use re 'asciirange'; # ranges in regular expressions refer to ASCII sub encode_qp ($) { |