In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/983d792ccf473faca5827d9cddb06a1a59e5dc6d?hp=7332835e5da7b7a793ef814a84e53003be1d0138>
- Log ----------------------------------------------------------------- commit 983d792ccf473faca5827d9cddb06a1a59e5dc6d Author: Tony Cook <[email protected]> Date: Tue Nov 29 10:26:55 2016 +1100 J. Nick Koston is now a perl AUTHOR M AUTHORS commit efd435cf43c5f6fb28f33fb23a19b34020feb580 Author: Tony Cook <[email protected]> Date: Tue Nov 29 10:24:15 2016 +1100 bump $Data::Dumper::VERSION and update Changes entries M dist/Data-Dumper/Changes M dist/Data-Dumper/Dumper.pm commit a261571f9962c6054afc830f76bd6d2daf07fac0 Author: J. Nick Koston <[email protected]> Date: Mon Nov 14 03:57:14 2016 -0600 dist/Data-Dumper/Dumper.pm: Reduce memory usage by removing overload and not importing Carp M dist/Data-Dumper/Changes M dist/Data-Dumper/Dumper.pm ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + dist/Data-Dumper/Changes | 11 ++++++++++- dist/Data-Dumper/Dumper.pm | 23 +++++++++++------------ 3 files changed, 22 insertions(+), 13 deletions(-) diff --git a/AUTHORS b/AUTHORS index 275e60e..b341532 100644 --- a/AUTHORS +++ b/AUTHORS @@ -525,6 +525,7 @@ Ivan Kurmanov <[email protected]> Ivan Pozdeev <[email protected]> Ivan Tubert-Brohman <[email protected]> J. David Blackstone <[email protected]> +J. Nick Koston <[email protected]> J. van Krieken <[email protected]> Jacinta Richardson <[email protected]> Jack Shirazi <[email protected]> diff --git a/dist/Data-Dumper/Changes b/dist/Data-Dumper/Changes index 9828fe0..a5430d5 100644 --- a/dist/Data-Dumper/Changes +++ b/dist/Data-Dumper/Changes @@ -6,7 +6,16 @@ Changes - public release history for Data::Dumper =over 8 -=item NEXT +=item 2,166 (Nov 29 2016) + +Reduce memory usage by not importing from Carp +Reduce memory usage by removing unused overload require. + +=item 2.165 (Nov 20 2016) + +Remove impediment to compiling under C++11. + +=item 2.164 (Nov 12 2016) The XS implementation now handles the C<Deparse> option, so using it no longer forces use of the pure-Perl version. diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index b346221..78efd44 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -10,16 +10,15 @@ package Data::Dumper; BEGIN { - $VERSION = '2.165'; # Don't forget to set version and release + $VERSION = '2.166'; # Don't forget to set version and release } # date in POD below! #$| = 1; use 5.006_001; require Exporter; -require overload; -use Carp; +use Carp (); BEGIN { @ISA = qw(Exporter); @@ -70,7 +69,7 @@ $Maxrecurse = 1000 unless defined $Maxrecurse; sub new { my($c, $v, $n) = @_; - croak "Usage: PACKAGE->new(ARRAYREF, [ARRAYREF])" + Carp::croak("Usage: PACKAGE->new(ARRAYREF, [ARRAYREF])") unless (defined($v) && (ref($v) eq 'ARRAY')); $n = [] unless (defined($n) && (ref($n) eq 'ARRAY')); @@ -170,11 +169,11 @@ sub Seen { $s->{seen}{$id} = [$k, $v]; } else { - carp "Only refs supported, ignoring non-ref item \$$k"; + Carp::carp("Only refs supported, ignoring non-ref item \$$k"); } } else { - carp "Value of ref must be defined; ignoring undefined item \$$k"; + Carp::carp("Value of ref must be defined; ignoring undefined item \$$k"); } } return $s; @@ -195,7 +194,7 @@ sub Values { return $s; } else { - croak "Argument to Values, if provided, must be array ref"; + Carp::croak("Argument to Values, if provided, must be array ref"); } } else { @@ -214,7 +213,7 @@ sub Names { return $s; } else { - croak "Argument to Names, if provided, must be array ref"; + Carp::croak("Argument to Names, if provided, must be array ref"); } } else { @@ -438,7 +437,7 @@ sub _dump { if (ref($s->{sortkeys}) eq 'CODE') { $keys = $s->{sortkeys}($val); unless (ref($keys) eq 'ARRAY') { - carp "Sortkeys subroutine did not return ARRAYREF"; + Carp::carp("Sortkeys subroutine did not return ARRAYREF"); $keys = []; } } @@ -491,11 +490,11 @@ sub _dump { } else { $out .= 'sub { "DUMMY" }'; - carp "Encountered CODE ref, using dummy placeholder" if $s->{purity}; + Carp::carp("Encountered CODE ref, using dummy placeholder") if $s->{purity}; } } else { - croak "Can't handle '$realtype' type"; + Carp::croak("Can't handle '$realtype' type"); } if ($realpack and !$no_bless) { # we have a blessed ref @@ -1466,7 +1465,7 @@ modify it under the same terms as Perl itself. =head1 VERSION -Version 2.164 (November 12 2016) +Version 2.166 (November 14 2016) =head1 SEE ALSO -- Perl5 Master Repository
