Change 20713 by [EMAIL PROTECTED] on 2003/08/14 18:33:06
Upgrade to PerlIO::via::Quoted 0.05.
Affected files ...
... //depot/perl/lib/PerlIO/via/QuotedPrint.pm#3 edit
... //depot/perl/lib/PerlIO/via/t/QuotedPrint.t#5 edit
Differences ...
==== //depot/perl/lib/PerlIO/via/QuotedPrint.pm#3 (text) ====
Index: perl/lib/PerlIO/via/QuotedPrint.pm
--- perl/lib/PerlIO/via/QuotedPrint.pm#2~17470~ Wed Jul 10 13:24:47 2002
+++ perl/lib/PerlIO/via/QuotedPrint.pm Thu Aug 14 11:33:06 2003
@@ -3,7 +3,7 @@
# 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 @@
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
==== //depot/perl/lib/PerlIO/via/t/QuotedPrint.t#5 (text) ====
Index: perl/lib/PerlIO/via/t/QuotedPrint.t
--- perl/lib/PerlIO/via/t/QuotedPrint.t#4~17471~ Wed Jul 10 13:27:07 2002
+++ perl/lib/PerlIO/via/t/QuotedPrint.t Thu Aug 14 11:33:06 2003
@@ -1,22 +1,24 @@
-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
End of Patch.
