# Set the version info
# Make sure we do things by the book from now on
-$VERSION = '0.04';
+$VERSION = '0.05';
use strict;
# Make sure the encoding/decoding stuff is available
L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
-=head1 COPYRIGHT
+=head1 ACKNOWLEDGEMENTS
+
+Based on example that was initially added to MIME::QuotedPrint.pm for the
+5.8.0 distribution of Perl.
-Copyright (c) 2002 Elizabeth Mattijsen. Based on example that was initially
-added to MIME::QuotedPrint.pm for the 5.8.0 distribution of Perl.
+=head1 COPYRIGHT
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
+Copyright (c) 2002-2003 Elizabeth Mattijsen. All rights reserved. This
+library is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
=cut
-my $file = 'test.qp';
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
+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;
+ exit 0;
}
if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
+ print "1..0 # Skip: EBCDIC\n";
}
}
+use strict;
+use warnings;
use Test::More tests => 11;
BEGIN { use_ok('PerlIO::via::QuotedPrint') }
+my $file = 'test.qp';
+
my $decoded = <<EOD;
This is a tést for quoted-printable text that has hàrdly any speçial characters
in it.