In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/11a12be6c2df2fcd9601f9fde8c7df8c7538c956?hp=f54cfdacff1f3744ef08fc70f1f3bc6c7d862e83>
- Log ----------------------------------------------------------------- commit 11a12be6c2df2fcd9601f9fde8c7df8c7538c956 Author: James E Keenan <[email protected]> Date: Tue Oct 11 10:02:22 2016 -0400 Revert "Reduce SelectSaver memory footprint" This reverts commit 26d58bfed57736ec1e1f1dfd579484f8b6fcccd7. ----------------------------------------------------------------------- Summary of changes: lib/SelectSaver.pm | 7 ++++--- pod/perldelta.pod | 4 ---- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm index 8899495..b67adff 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; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index ab2972d..2c3986b 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -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 -- Perl5 Master Repository
