tlperl 5.22.1 from siep

git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751

11 files changed, 68 insertions, 67 deletions

diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
index 53b8ef1d583..0161b8fe7b7 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.064 qw(:Status);
+use IO::Compress::Base::Common 2.068 qw(:Status);
 
-use Compress::Raw::Bzip2 2.064 ;
+use Compress::Raw::Bzip2 2.068 ;
 
 our ($VERSION, @ISA);
-$VERSION = '2.064';
+$VERSION = '2.068';
 
 sub mkUncompObject
 {
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
index 812f3f87d1b..ecc66b9a807 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
@@ -4,14 +4,14 @@ use warnings;
 use strict;
 use bytes;
 
-use IO::Compress::Base::Common  2.064 qw(:Status);
+use IO::Compress::Base::Common  2.068 qw(:Status);
 use IO::Compress::Zip::Constants ;
 
 our ($VERSION);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 
-use Compress::Raw::Zlib  2.064 ();
+use Compress::Raw::Zlib  2.068 ();
 
 sub mkUncompObject
 {
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
index 68beea145c9..2cfe61e865d 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 #use bytes;
 
-use IO::Compress::Base::Common  2.064 qw(:Status);
-use Compress::Raw::Zlib  2.064 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common  2.068 qw(:Status);
+use Compress::Raw::Zlib  2.068 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
 
 our ($VERSION);
-$VERSION = '2.064';
+$VERSION = '2.068';
 
 
 
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
index cdf229a252a..fd0bd69d8c7 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
@@ -6,22 +6,22 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.064 ();
+use IO::Compress::Base::Common  2.068 ();
 
-use IO::Uncompress::Adapter::Inflate  2.064 ();
+use IO::Uncompress::Adapter::Inflate  2.068 ();
 
 
-use IO::Uncompress::Base  2.064 ;
-use IO::Uncompress::Gunzip  2.064 ;
-use IO::Uncompress::Inflate  2.064 ;
-use IO::Uncompress::RawInflate  2.064 ;
-use IO::Uncompress::Unzip  2.064 ;
+use IO::Uncompress::Base  2.068 ;
+use IO::Uncompress::Gunzip  2.068 ;
+use IO::Uncompress::Inflate  2.068 ;
+use IO::Uncompress::RawInflate  2.068 ;
+use IO::Uncompress::Unzip  2.068 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $AnyInflateError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -48,7 +48,7 @@ sub anyinflate
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.064 qw(:Parse);
+    use IO::Compress::Base::Common  2.068 qw(:Parse);
     return ( 'rawinflate' => [Parse_boolean,  0] ) ;
 }
 
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
index e2b104dff43..0d2568e5b3c 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
@@ -4,16 +4,16 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.064 ();
+use IO::Compress::Base::Common 2.068 ();
 
-use IO::Uncompress::Base 2.064 ;
+use IO::Uncompress::Base 2.068 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $AnyUncompressError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -27,22 +27,22 @@ Exporter::export_ok_tags('all');
 
 BEGIN
 {
-   eval ' use IO::Uncompress::Adapter::Inflate 2.064 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.064 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.064 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.064 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.064 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.064 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.064 ;';
-   eval ' use IO::Uncompress::UnLzop 2.064 ;';
-   eval ' use IO::Uncompress::Gunzip 2.064 ;';
-   eval ' use IO::Uncompress::Inflate 2.064 ;';
-   eval ' use IO::Uncompress::RawInflate 2.064 ;';
-   eval ' use IO::Uncompress::Unzip 2.064 ;';
-   eval ' use IO::Uncompress::UnLzf 2.064 ;';
-   eval ' use IO::Uncompress::UnLzma 2.064 ;';
-   eval ' use IO::Uncompress::UnXz 2.064 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.068 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.068 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.068 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.068 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.068 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.068 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.068 ;';
+   eval ' use IO::Uncompress::UnLzop 2.068 ;';
+   eval ' use IO::Uncompress::Gunzip 2.068 ;';
+   eval ' use IO::Uncompress::Inflate 2.068 ;';
+   eval ' use IO::Uncompress::RawInflate 2.068 ;';
+   eval ' use IO::Uncompress::Unzip 2.068 ;';
+   eval ' use IO::Uncompress::UnLzf 2.068 ;';
+   eval ' use IO::Uncompress::UnLzma 2.068 ;';
+   eval ' use IO::Uncompress::UnXz 2.068 ;';
 }
 
 sub new
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
index 4d1b7802850..04348a23540 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
 @ISA    = qw(Exporter IO::File);
 
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.064 ;
+use IO::Compress::Base::Common 2.068 ;
 
 use IO::File ;
 use Symbol;
@@ -756,7 +756,8 @@ sub _rd2
 
         while (($status = $z->read($x->{buff})) > 0) {
             if ($fh) {
-                syswrite $fh, ${ $x->{buff} }
+                local $\;
+                print $fh ${ $x->{buff} }
                     or return $z->saveErrorString(undef, "Error writing to output file: $!", $!);
                 ${ $x->{buff} } = '' ;
             }
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
index aad835f32f3..c6e7f466ad6 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
@@ -4,15 +4,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.064 qw(:Status );
+use IO::Compress::Base::Common 2.068 qw(:Status );
 
-use IO::Uncompress::Base 2.064 ;
-use IO::Uncompress::Adapter::Bunzip2 2.064 ;
+use IO::Uncompress::Base 2.068 ;
+use IO::Uncompress::Adapter::Bunzip2 2.068 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $Bunzip2Error = '';
 
 @ISA    = qw( Exporter IO::Uncompress::Base );
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
index b8012d0ee0d..1f33f0b2ae0 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.064 ;
+use IO::Uncompress::RawInflate 2.068 ;
 
-use Compress::Raw::Zlib 2.064 () ;
-use IO::Compress::Base::Common 2.064 qw(:Status );
-use IO::Compress::Gzip::Constants 2.064 ;
-use IO::Compress::Zlib::Extra 2.064 ;
+use Compress::Raw::Zlib 2.068 () ;
+use IO::Compress::Base::Common 2.068 qw(:Status );
+use IO::Compress::Gzip::Constants 2.068 ;
+use IO::Compress::Zlib::Extra 2.068 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 
 sub new
 {
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
index a5df2eacb95..1330731e42a 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
@@ -5,15 +5,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.064 qw(:Status );
-use IO::Compress::Zlib::Constants 2.064 ;
+use IO::Compress::Base::Common  2.068 qw(:Status );
+use IO::Compress::Zlib::Constants 2.068 ;
 
-use IO::Uncompress::RawInflate  2.064 ;
+use IO::Uncompress::RawInflate  2.068 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $InflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::RawInflate );
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
index b0259f30430..3a375a7c16e 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
@@ -5,16 +5,16 @@ use strict ;
 use warnings;
 #use bytes;
 
-use Compress::Raw::Zlib  2.064 ;
-use IO::Compress::Base::Common  2.064 qw(:Status );
+use Compress::Raw::Zlib  2.068 ;
+use IO::Compress::Base::Common  2.068 qw(:Status );
 
-use IO::Uncompress::Base  2.064 ;
-use IO::Uncompress::Adapter::Inflate  2.064 ;
+use IO::Uncompress::Base  2.068 ;
+use IO::Uncompress::Adapter::Inflate  2.068 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $RawInflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::Base );
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
index 3b36f839a05..f73313fe8ed 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
@@ -9,14 +9,14 @@ use warnings;
 #use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.064 ;
-use IO::Compress::Base::Common  2.064 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.064 ;
-use IO::Uncompress::Adapter::Identity 2.064 ;
-use IO::Compress::Zlib::Extra 2.064 ;
-use IO::Compress::Zip::Constants 2.064 ;
+use IO::Uncompress::RawInflate  2.068 ;
+use IO::Compress::Base::Common  2.068 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.068 ;
+use IO::Uncompress::Adapter::Identity 2.068 ;
+use IO::Compress::Zlib::Extra 2.068 ;
+use IO::Compress::Zip::Constants 2.068 ;
 
-use Compress::Raw::Zlib  2.064 () ;
+use Compress::Raw::Zlib  2.068 () ;
 
 BEGIN
 {
@@ -31,7 +31,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.064';
+$VERSION = '2.068';
 $UnzipError = '';
 
 @ISA    = qw(Exporter IO::Uncompress::RawInflate);