diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-13 22:47:29 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-13 17:12:00 +0000 |
| commit | 2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8 (patch) | |
| tree | 4fbd3f59e65577085646ea3f266175edf15efd1e /lib/PerlIO/via | |
| parent | 6ae709ad20fb5debe5f58c9686ed99226819442f (diff) | |
| download | perl-2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8.tar.gz | |
z/OS: non-CPAN ext and lib + main() without the third arg + Stephen McCamant's comment
Message-ID: <44B67921.6090901@iki.fi>
p4raw-id: //depot/perl@28567
Diffstat (limited to 'lib/PerlIO/via')
| -rw-r--r-- | lib/PerlIO/via/t/QuotedPrint.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t index baf0d1f4e4..40bca4fe60 100644 --- a/lib/PerlIO/via/t/QuotedPrint.t +++ b/lib/PerlIO/via/t/QuotedPrint.t @@ -30,11 +30,21 @@ This is a tést for quoted-printable text that has hàrdly any speçial characters in it. EOD -my $encoded = <<EOD; +my $encoded; + +if (ord('A') == 193) { # EBCDIC. + $encoded = <<EOD; +This is a t=51st for quoted-printable text that has h=44rdly any spe=48ial = +characters +in it. +EOD +} else { + $encoded = <<EOD; This is a t=E9st for quoted-printable text that has h=E0rdly any spe=E7ial = characters in it. EOD +} # Create the encoded test-file |