summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2022-03-14 10:08:50 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2022-03-14 10:08:50 +0000
commit49b9d8ffc05bf0c271287eb1390cabad28c6a47a (patch)
treee2e1779b1d4795d6b2c3bf92a4e2e4154d82124b /Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm
parentf03a75ebd3b935ecde4dde32687fbe86161c30ed (diff)
New tlperl 5.34
git-svn-id: svn://tug.org/texlive/trunk@62701 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm b/Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm
index 87af18b6de8..67882cf5158 100644
--- a/Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm
@@ -11,7 +11,7 @@ use File::GlobMapper;
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
-$VERSION = '2.093';
+$VERSION = '2.102';
@EXPORT = qw( isaFilehandle isaFilename isaScalar
whatIsInput whatIsOutput
@@ -160,7 +160,7 @@ sub whatIsInput($;$)
#use IO::File;
$got = 'handle';
$_[0] = *STDIN;
- #$_[0] = new IO::File("<-");
+ #$_[0] = IO::File->new("<-");
}
return $got;
@@ -174,7 +174,7 @@ sub whatIsOutput($;$)
{
$got = 'handle';
$_[0] = *STDOUT;
- #$_[0] = new IO::File(">-");
+ #$_[0] = IO::File->new(">-");
}
return $got;
@@ -267,7 +267,7 @@ sub IO::Compress::Base::Validator::new
{
$data{GlobMap} = 1 ;
$data{inType} = $data{outType} = 'filename';
- my $mapper = new File::GlobMapper($_[0], $_[1]);
+ my $mapper = File::GlobMapper->new($_[0], $_[1]);
if ( ! $mapper )
{
return $obj->saveErrorString($File::GlobMapper::Error) ;
@@ -509,7 +509,7 @@ sub ParseParameters
return $_[1]
if @_ == 2 && defined $_[1] && UNIVERSAL::isa($_[1], "IO::Compress::Base::Parameters");
- my $p = new IO::Compress::Base::Parameters() ;
+ my $p = IO::Compress::Base::Parameters->new();
$p->parse(@_)
or croak "$sub: $p->[IxError]" ;