diff options
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 |