In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/001761daee58d9e33b457b762adae1f44a887a2d?hp=9e08bfd8d1a9493056c4199e39523fcaa89c9bf6>
- Log ----------------------------------------------------------------- commit 001761daee58d9e33b457b762adae1f44a887a2d Author: Chase Whitener <[email protected]> Date: Wed May 18 12:20:28 2016 -0400 Indirect object syntax fixed in FileHandle.pm Increment $FileHandle::VERSION. For: RT #128178 ----------------------------------------------------------------------- Summary of changes: lib/FileHandle.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm index 6b3636a..133221b 100644 --- a/lib/FileHandle.pm +++ b/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); } -- Perl5 Master Repository
