From: Dan Sugalski Date: Sat, 12 Oct 2002 18:14:42 +0000 (-0800) Subject: import Devel-Size 0.54 from CPAN X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fea63ffab1b34bbefc1f75a7beee2c5bdc96d67e;p=p5sagit%2FDevel-Size.git import Devel-Size 0.54 from CPAN git-cpan-module: Devel-Size git-cpan-version: 0.54 git-cpan-authorid: DSUGAL git-cpan-file: authors/id/D/DS/DSUGAL/Devel-Size-0.54.tar.gz --- diff --git a/Changes b/Changes index 3091c2b..c1860da 100644 --- a/Changes +++ b/Changes @@ -7,4 +7,7 @@ Revision history for Perl extension Devel::Size. 0.53 Thu Oct 10 12:30:00 2002 - Finally started updating Changes file - Applied doc patch from Ann Barcomb - - Got globs sizing right \ No newline at end of file + - Got globs sizing right + +0.54 Sat Oct 12 14:11:00 2002 + - Applied a patch to get it working on 5.8.0 under Tru64 diff --git a/Size.pm b/Size.pm index f568bc2..0dac1ce 100644 --- a/Size.pm +++ b/Size.pm @@ -24,7 +24,7 @@ require DynaLoader; @EXPORT = qw( ); -$VERSION = '0.53'; +$VERSION = '0.54'; bootstrap Devel::Size $VERSION; @@ -82,7 +82,7 @@ None but default, but optionally C and C. =head1 BUGS -Doesn't currently walk all the bits for code refs, globs, formats, and +Doesn't currently walk all the bits for code refs, formats, and IO. Those throw a warning, but a minimum size for them is returned. =head1 AUTHOR diff --git a/Size.xs b/Size.xs index 33699d1..43b45ce 100644 --- a/Size.xs +++ b/Size.xs @@ -199,9 +199,10 @@ UV thing_size(SV *orig_thing, HV *tracking_hash) { return total_size; } - MODULE = Devel::Size PACKAGE = Devel::Size +PROTOTYPES: DISABLE + IV size(orig_thing) SV *orig_thing