From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 14 Aug 2003 18:33:06 +0000 (+0000)
Subject: Upgrade to PerlIO::via::Quoted 0.05.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9acc69df9782b1120798f0fe8810021b5dd92d7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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.