In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/26d58bfed57736ec1e1f1dfd579484f8b6fcccd7?hp=dd0f8ff2d050f302c0dd99da2626c4cef41ec422>
- Log ----------------------------------------------------------------- commit 26d58bfed57736ec1e1f1dfd579484f8b6fcccd7 Author: Nicolas R <[email protected]> Date: Thu Sep 8 14:29:46 2016 -0600 Reduce SelectSaver memory footprint This is saving about 500k when using SelectSaver as most of the time Carp is not required. before> perl -I. -e 'require q{lib/SelectSaver.pm}; print qx{grep VmRSS /proc/$$/status}' VmRSS: 2920 kB after> perl -I. -e 'require q{lib/SelectSaver.pm}; print qx{grep VmRSS /proc/$$/status}' VmRSS: 2352 kB Committer: Increment SelectSaver $VERSION. Add perldelta entry for SelectSaver. For: RT # 129235 ----------------------------------------------------------------------- Summary of changes: lib/SelectSaver.pm | 7 +++---- pod/perldelta.pod | 4 ++++ 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm index b67adff..8899495 100644 --- a/lib/SelectSaver.pm +++ b/lib/SelectSaver.pm @@ -1,6 +1,6 @@ package SelectSaver; -our $VERSION = '1.02'; +our $VERSION = '1.03'; =head1 NAME @@ -35,11 +35,10 @@ that was selected when it was created. =cut require 5.000; -use Carp; -use Symbol; +use Symbol q{qualify}; sub new { - @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; + @_ >= 1 && @_ <= 2 or do { require Carp; Carp::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 2c3986b..ab2972d 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -121,6 +121,10 @@ 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
