diff options
| author |   afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
| commit | 9f11ffb7133c203312a01e4b986886bc88c7d74b (patch) | |
| tree | 6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/lib/FileHandle.pm | |
| parent | Import perl-5.28.1 (diff) | |
| download | wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.tar.xz wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.zip | |
Fix merge issues, remove excess files - match perl-5.28.1 dist
looking good sthen@, Great! bluhm@
Diffstat (limited to 'gnu/usr.bin/perl/lib/FileHandle.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/FileHandle.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/lib/FileHandle.pm b/gnu/usr.bin/perl/lib/FileHandle.pm index 6b3636a089d..133221bb6b5 100644 --- a/gnu/usr.bin/perl/lib/FileHandle.pm +++ b/gnu/usr.bin/perl/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); } |