diff options
author | James E Keenan <jkeenan@cpan.org> | 2016-10-11 10:02:22 -0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2016-10-11 10:02:22 -0400 |
commit | 11a12be6c2df2fcd9601f9fde8c7df8c7538c956 (patch) | |
tree | ec17517853df984117210ad87977114b2c719a93 /lib/SelectSaver.pm | |
parent | f54cfdacff1f3744ef08fc70f1f3bc6c7d862e83 (diff) | |
download | perl-11a12be6c2df2fcd9601f9fde8c7df8c7538c956.tar.gz |
Revert "Reduce SelectSaver memory footprint"
This reverts commit 26d58bfed57736ec1e1f1dfd579484f8b6fcccd7.
Diffstat (limited to 'lib/SelectSaver.pm')
-rw-r--r-- | lib/SelectSaver.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm index 8899495319..b67adff42b 100644 --- a/lib/SelectSaver.pm +++ b/lib/SelectSaver.pm @@ -1,6 +1,6 @@ package SelectSaver; -our $VERSION = '1.03'; +our $VERSION = '1.02'; =head1 NAME @@ -35,10 +35,11 @@ that was selected when it was created. =cut require 5.000; -use Symbol q{qualify}; +use Carp; +use Symbol; sub new { - @_ >= 1 && @_ <= 2 or do { require Carp; Carp::croak('usage: SelectSaver->new( [FILEHANDLE] )') }; + @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; my $fh = select; my $self = bless \$fh, $_[0]; select qualify($_[1], caller) if @_ > 1; |