From: Dan Sugalski Date: Mon, 24 Feb 2003 16:44:26 +0000 (-0800) Subject: import Devel-Size 0.56 from CPAN X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=966a1570c7ce7e07dfb937f4d5ae0ab35a029496;p=p5sagit%2FDevel-Size.git import Devel-Size 0.56 from CPAN git-cpan-module: Devel-Size git-cpan-version: 0.56 git-cpan-authorid: DSUGAL git-cpan-file: authors/id/D/DS/DSUGAL/Devel-Size-0.56.tar.gz --- diff --git a/Changes b/Changes index e35fa9b..751b540 100644 --- a/Changes +++ b/Changes @@ -16,4 +16,7 @@ Revision history for Perl extension Devel::Size. - Fixed a bad size calculation (we were overestimating by one byte) - Updated the docs to show some of the places that there might be 'dark' memory that Devel::Size can't see. - - Added in tests from Ken Williams \ No newline at end of file + - Added in tests from Ken Williams + +0.56 Mon Feb 24 12:10:13 2003 + - Chopped out some C++ comments. D'oh! Version incremented for CPAN \ No newline at end of file diff --git a/Size.pm b/Size.pm index dd1764a..f1a3866 100644 --- a/Size.pm +++ b/Size.pm @@ -24,7 +24,7 @@ require DynaLoader; @EXPORT = qw( ); -$VERSION = '0.55'; +$VERSION = '0.56'; bootstrap Devel::Size $VERSION; diff --git a/Size.xs b/Size.xs index 02c16c3..348346d 100644 --- a/Size.xs +++ b/Size.xs @@ -323,12 +323,10 @@ CODE: size = thing_size(thing, tracking_hash); RETVAL += size; - // printf("added thing of size %i, thing #%i\n", size, count++); } } /* Clean up after ourselves */ - // printf("For info, refcounts are %i, %i\n", SvREFCNT(tracking_hash), SvREFCNT(pending_array)); SvREFCNT_dec(tracking_hash); SvREFCNT_dec(pending_array); }