diff options
| author | Chase Whitener <cwhitener@gmail.com> | 2016-05-18 12:20:28 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2016-05-20 06:47:33 -0400 |
| commit | 001761daee58d9e33b457b762adae1f44a887a2d (patch) | |
| tree | c459b8a613fd721c45a8be4c074ca660df398e39 /lib | |
| parent | 9e08bfd8d1a9493056c4199e39523fcaa89c9bf6 (diff) | |
| download | perl-001761daee58d9e33b457b762adae1f44a887a2d.tar.gz | |
Indirect object syntax fixed in FileHandle.pm
Increment $FileHandle::VERSION.
For: RT #128178
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/FileHandle.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm index 6b3636a089..133221bb6b 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); } |