Hi, the following changes were made to your test files in blead and should probably be
absorbed by your module in CPAN for consistency.
| Subject: | QuotedPrint.t.patch |
--- QuotedPrint.t.cpan 2010-01-27 15:06:48.000000000 -0600
+++ QuotedPrint.t.blead 2010-01-27 15:06:53.000000000 -0600
@@ -1,12 +1,13 @@
BEGIN { # Magic Perl CORE pragma
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
unless (find PerlIO::Layer 'perlio') {
print "1..0 # Skip: PerlIO not used\n";
exit 0;
}
+ require Config;
+ if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
+ print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
+ exit 0;
+ }
if (ord("A") == 193) {
print "1..0 # Skip: EBCDIC\n";
}
@@ -25,11 +26,21 @@
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