summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/FileHandle.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-03-08 00:16:42 +0000
committerKarl Berry <karl@freefriends.org>2018-03-08 00:16:42 +0000
commit34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch)
tree099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/FileHandle.pm
parent2ca3610031316a7312d046d3ae4c783452831216 (diff)
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/FileHandle.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/FileHandle.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/FileHandle.pm b/Master/tlpkg/tlperl/lib/FileHandle.pm
index 6b3636a089d..133221bb6b5 100644
--- a/Master/tlpkg/tlperl/lib/FileHandle.pm
+++ b/Master/tlpkg/tlperl/lib/FileHandle.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
-$VERSION = "2.02";
+$VERSION = "2.03";
require IO::File;
@ISA = qw(IO::File);
@@ -36,7 +36,7 @@ require IO::File;
#
# Everything we're willing to export, we must first import.
#
-import IO::Handle grep { !defined(&$_) } @EXPORT, @EXPORT_OK;
+IO::Handle->import( grep { !defined(&$_) } @EXPORT, @EXPORT_OK );
#
# Some people call "FileHandle::function", so all the functions
@@ -88,8 +88,8 @@ sub import {
#
sub pipe {
- my $r = new IO::Handle;
- my $w = new IO::Handle;
+ my $r = IO::Handle->new;
+ my $w = IO::Handle->new;
CORE::pipe($r, $w) or return undef;
($r, $w);
}