summaryrefslogtreecommitdiff
path: root/lib/SelectSaver.pm
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2016-10-11 10:02:22 -0400
committerJames E Keenan <jkeenan@cpan.org>2016-10-11 10:02:22 -0400
commit11a12be6c2df2fcd9601f9fde8c7df8c7538c956 (patch)
treeec17517853df984117210ad87977114b2c719a93 /lib/SelectSaver.pm
parentf54cfdacff1f3744ef08fc70f1f3bc6c7d862e83 (diff)
downloadperl-11a12be6c2df2fcd9601f9fde8c7df8c7538c956.tar.gz
Revert "Reduce SelectSaver memory footprint"
This reverts commit 26d58bfed57736ec1e1f1dfd579484f8b6fcccd7.
Diffstat (limited to 'lib/SelectSaver.pm')
-rw-r--r--lib/SelectSaver.pm7
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;