diff options
author | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
commit | 300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch) | |
tree | 23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/PerlIO | |
parent | ed55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff) |
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/PerlIO')
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/encoding.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/mmap.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/scalar.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm | 56 |
4 files changed, 35 insertions, 27 deletions
diff --git a/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm b/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm index ee3573e02bc..e2708193c02 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm @@ -1,7 +1,7 @@ package PerlIO::encoding; use strict; -our $VERSION = '0.15'; +our $VERSION = '0.16'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; diff --git a/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm b/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm index 7db4a55137f..cf97882fa59 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm @@ -1,7 +1,7 @@ package PerlIO::mmap; use strict; use warnings; -our $VERSION = '0.010'; +our $VERSION = '0.011'; use XSLoader; XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION); diff --git a/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm b/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm index 6c304f20db4..64ecc22576e 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm @@ -1,5 +1,5 @@ package PerlIO::scalar; -our $VERSION = '0.14_01'; +our $VERSION = '0.16'; require XSLoader; XSLoader::load(); 1; diff --git a/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm b/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm index 2434191f091..11ba2e7b4f3 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm @@ -1,20 +1,21 @@ package PerlIO::via::QuotedPrint; -# Set the version info -# Make sure we do things by the book from now on +$VERSION= '0.07'; -$VERSION = '0.06'; +# be as strict as possible use strict; -# Make sure the encoding/decoding stuff is available - +# modules that we need use MIME::QuotedPrint (); # no need to pollute this namespace -# Satisfy -require- - +# satisfy -require- 1; -#----------------------------------------------------------------------- +#------------------------------------------------------------------------------- +# +# Standard Perl features +# +#------------------------------------------------------------------------------- # IN: 1 class to bless with # 2 mode string (ignored) # 3 file handle of PerlIO layer below (ignored) @@ -22,21 +23,21 @@ use MIME::QuotedPrint (); # no need to pollute this namespace sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED -#----------------------------------------------------------------------- +#------------------------------------------------------------------------------- # IN: 1 instantiated object (ignored) # 2 handle to read from # OUT: 1 decoded string sub FILL { -# Read the line from the handle -# Decode if there is something decode and return result or signal eof - - my $line = readline( $_[1] ); - (defined $line) ? MIME::QuotedPrint::decode_qp( $line ) : undef; + # decode and return + my $line= readline( $_[1] ); + return ( defined $line ) + ? MIME::QuotedPrint::decode_qp($line) + : undef; } #FILL -#----------------------------------------------------------------------- +#------------------------------------------------------------------------------- # IN: 1 instantiated object (ignored) # 2 buffer to be written # 3 handle to write to @@ -44,11 +45,14 @@ sub FILL { sub WRITE { -# Encode whatever needs to be encoded and write to handle: indicate result - - (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1; + # encode and write to handle: indicate result + return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) ) + ? length( $_[1] ) + : -1; } #WRITE +#------------------------------------------------------------------------------- + __END__ =head1 NAME @@ -59,11 +63,15 @@ PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings use PerlIO::via::QuotedPrint; - open( my $in,'<:via(QuotedPrint)','file.qp' ) - or die "Can't open file.qp for reading: $!\n"; + open( my $in, '<:via(QuotedPrint)', 'file.qp' ) + or die "Can't open file.qp for reading: $!\n"; - open( my $out,'>:via(QuotedPrint)','file.qp' ) - or die "Can't open file.qp for writing: $!\n"; + open( my $out, '>:via(QuotedPrint)', 'file.qp' ) + or die "Can't open file.qp for writing: $!\n"; + +=head1 VERSION + +This documentation describes version 0.07. =head1 DESCRIPTION @@ -87,8 +95,8 @@ Based on example that was initially added to MIME::QuotedPrint.pm for the =head1 COPYRIGHT -Copyright (c) 2002-2003 Elizabeth Mattijsen. All rights reserved. This -library is free software; you can redistribute it and/or modify it under +Copyright (c) 2002, 2003, 2004, 2012 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 |