diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-06-01 08:49:22 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-01 21:53:14 +0000 |
| commit | 95635e5f3146a92e0968ae6fb207309af7cdb6d6 (patch) | |
| tree | 1c5e6d541d43934aa5014ffe898fc28f70c0f8c9 /t | |
| parent | fecbda2b590e985946f0a69ff09a806c69267f6f (diff) | |
| download | perl-95635e5f3146a92e0968ae6fb207309af7cdb6d6.tar.gz | |
allow MIME::QuotePrint to handle ASCII code numbers on EBCDIC machines
Message-ID: <Pine.OSF.4.10.10106011545140.323662-100000@aspara.forte.com>
p4raw-id: //depot/perl@10384
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/mimeqp.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/lib/mimeqp.t b/t/lib/mimeqp.t index f7e127fd4a..1a7f9e4550 100755 --- a/t/lib/mimeqp.t +++ b/t/lib/mimeqp.t @@ -78,6 +78,10 @@ $testno = 0; for (@tests) { $testno++; ($plain, $encoded) = @$_; + if (ord('A') == 193) { # EBCDIC 8 bit chars are different + if ($testno == 2) { $plain =~ s/\xe5/\x47/; $plain =~ s/\xe6/\x9c/g; $plain =~ s/\xf8/\x70/; } + if ($testno == 7) { $plain =~ s/\xff/\xdf/; } + } $x = encode_qp($plain); if ($x ne $encoded) { print "Encode test failed\n"; |