import Devel-Size 0.61 from CPAN

git-cpan-module:   Devel-Size
git-cpan-version:  0.61
git-cpan-authorid: DSUGAL
git-cpan-file:     authors/id/D/DS/DSUGAL/Devel-Size-0.61.tar.gz

diff --git a/Changes b/Changes
index 5e10260..b8c9075 100755 (executable)
--- a/Changes
+++ b/Changes
@@ -32,3 +32,7 @@ Revision history for Perl extension Devel::Size.
 0.59  Sat Nov 27 16:42:42 2004
         - Applied documentation and sane warning patch from Nigel Sandever
         - Taught Devel::Size how to size up IO and globs properly
+
+0.61  Mon Jun 17 16:19:00 2005
+        - Added more checks for formats
+       - Got CVs sizing right

diff --git a/META.yml b/META.yml
index 38fbb59..77a1f33 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Devel-Size
-version:      0.60
+version:      0.61
 version_from: Size.pm
 installdirs:  site
 requires:

diff --git a/Size.pm b/Size.pm
index a4d6581..ec248cb 100755 (executable)
--- a/Size.pm
+++ b/Size.pm
@@ -24,7 +24,7 @@ require DynaLoader;
 @EXPORT = qw(
        
 );
-$VERSION = '0.60';
+$VERSION = '0.61';
 
 bootstrap Devel::Size $VERSION;
 

diff --git a/Size.xs b/Size.xs
index bb4c7bc..a112d3e 100755 (executable)
--- a/Size.xs
+++ b/Size.xs
@@ -288,9 +288,9 @@ UV op_size(OP *baseop, HV *tracking_hash) {
     if (check_new(tracking_hash, cLOOPx(baseop)->op_nextop)) {
       total_size += op_size(cLOOPx(baseop)->op_nextop, tracking_hash);
     }
-    if (check_new(tracking_hash, cLOOPx(baseop)->op_lastop)) {
-      total_size += op_size(cLOOPx(baseop)->op_lastop, tracking_hash);
-    }  
+//    if (check_new(tracking_hash, cLOOPx(baseop)->op_lastop)) {
+//      total_size += op_size(cLOOPx(baseop)->op_lastop, tracking_hash);
+//    }  
   case OPc_COP:
     {
       COP *basecop;