Upgrade to PerlIO::via::Quoted 0.05.

p4raw-id: //depot/perl@20713

diff --git a/lib/PerlIO/via/QuotedPrint.pm b/lib/PerlIO/via/QuotedPrint.pm
index e258830..8b182bd 100644 (file)
--- a/lib/PerlIO/via/QuotedPrint.pm
+++ b/lib/PerlIO/via/QuotedPrint.pm
@@ -3,7 +3,7 @@ package PerlIO::via::QuotedPrint;
 # 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
@@ -76,12 +76,15 @@ from a handle, and it will encode as quoted-printable while writing to a handle.
 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

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index ee0f697..b379f66 100644 (file)
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -1,23 +1,25 @@
-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.