From: Jarkko Hietaniemi 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, L, L, L, L, L. -=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 = <