This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Reduce SelectSaver memory footprint"
authorJames E Keenan <jkeenan@cpan.org>
Tue, 11 Oct 2016 14:02:22 +0000 (10:02 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Tue, 11 Oct 2016 14:02:22 +0000 (10:02 -0400)
This reverts commit 26d58bfed57736ec1e1f1dfd579484f8b6fcccd7.

lib/SelectSaver.pm
pod/perldelta.pod

index 8899495..b67adff 100644 (file)
@@ -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;
index ab2972d..2c3986b 100644 (file)
@@ -121,10 +121,6 @@ XXX
 
 L<XXX> has been upgraded from version A.xx to B.yy.
 
-=item *
-
-L<SelectSaver> has been upgraded from version 1.02 to 1.03.
-
 =back
 
 =head2 Removed Modules and Pragmata