diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-14 02:10:27 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-07-13 20:18:59 +0000 |
| commit | cf0d1c66a0d97cdcc6938d91401fa36b9b5a67ac (patch) | |
| tree | 65674c4cd5d583a2c89833405ac421a19c1387be /ext/MIME/Base64 | |
| parent | 2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8 (diff) | |
| download | perl-cf0d1c66a0d97cdcc6938d91401fa36b9b5a67ac.tar.gz | |
z/OS: CPAN-ized ext/ and lib/
Message-ID: <44B6A8B3.5070605@iki.fi>
p4raw-id: //depot/perl@28568
Diffstat (limited to 'ext/MIME/Base64')
| -rw-r--r-- | ext/MIME/Base64/Base64.xs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/MIME/Base64/Base64.xs b/ext/MIME/Base64/Base64.xs index 795f9017d5..afbad93c52 100644 --- a/ext/MIME/Base64/Base64.xs +++ b/ext/MIME/Base64/Base64.xs @@ -258,7 +258,11 @@ decode_base64(sv) MODULE = MIME::Base64 PACKAGE = MIME::QuotedPrint +#ifdef EBCDIC +#define qp_isplain(c) ((c) == '\t' || ((!isprint(c) && (c) != '='))) +#else #define qp_isplain(c) ((c) == '\t' || (((c) >= ' ' && (c) <= '~') && (c) != '=')) +#endif SV* encode_qp(sv,...) |