diff options
| author | Elizabeth Mattijsen <liz@dijkmat.nl> | 2002-07-10 23:13:52 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-10 20:24:47 +0000 |
| commit | 385e1f9fd66a9146b7463c05d27e5028541ba2f1 (patch) | |
| tree | 917b8d02fa529fb5ebe85b2543755d2843a4a3a0 /lib | |
| parent | 415c47386cbaaeba799eb4450916189f62200e8b (diff) | |
| download | perl-385e1f9fd66a9146b7463c05d27e5028541ba2f1.tar.gz | |
[DOC PATCH] some doc nits after 17463
Message-Id: <4.2.0.58.20020710211105.032546d0@mickey.dijkmat.nl>
p4raw-id: //depot/perl@17470
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/PerlIO/via/QuotedPrint.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/PerlIO/via/QuotedPrint.pm b/lib/PerlIO/via/QuotedPrint.pm index 3acf45c3fd..e258830668 100644 --- a/lib/PerlIO/via/QuotedPrint.pm +++ b/lib/PerlIO/via/QuotedPrint.pm @@ -1,22 +1,26 @@ package PerlIO::via::QuotedPrint; -# Make sure we do things by the book # Set the version info +# Make sure we do things by the book from now on +$VERSION = '0.04'; use strict; -$PerlIO::via::QuotedPrint::VERSION = 0.01; # Make sure the encoding/decoding stuff is available use MIME::QuotedPrint (); # no need to pollute this namespace +# Satisfy -require- + +1; + #----------------------------------------------------------------------- # IN: 1 class to bless with # 2 mode string (ignored) # 3 file handle of PerlIO layer below (ignored) # OUT: 1 blessed object -sub PUSHED { bless [],$_[0] } #PUSHED +sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED #----------------------------------------------------------------------- # IN: 1 instantiated object (ignored) @@ -45,10 +49,6 @@ sub WRITE { (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1; } #WRITE -# Satisfy -require- - -1; - __END__ =head1 NAME @@ -59,10 +59,10 @@ PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings use PerlIO::via::QuotedPrint; - open( my $in,'<Via(PerlIO::via::QuotedPrint)','file.qp' ) + open( my $in,'<:via(QuotedPrint)','file.qp' ) or die "Can't open file.qp for reading: $!\n"; - open( my $out,'>Via(PerlIO::via::QuotedPrint)','file.qp' ) + open( my $out,'>:via(QuotedPrint)','file.qp' ) or die "Can't open file.qp for writing: $!\n"; =head1 DESCRIPTION @@ -73,8 +73,8 @@ from a handle, and it will encode as quoted-printable while writing to a handle. =head1 SEE ALSO -L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>, L<PerlIO::via::MD5>, -L<PerlIO::via::StripHTML>. +L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>, +L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>. =head1 COPYRIGHT |