X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FSize.pm;h=61ad18380c1a6c0020ebfa24d13b33ceadedc5ac;hb=3cba7a2c0211121aabb5cda50db17a5d84de1773;hp=9d3f08f47d4a7d65cc06541a61d85dba32192e9c;hpb=30fe4f47f54133b9d31e3af111efbf7b3e13b213;p=p5sagit%2FDevel-Size.git

diff --git a/lib/Devel/Size.pm b/lib/Devel/Size.pm
index 9d3f08f..61ad183 100644
--- a/lib/Devel/Size.pm
+++ b/lib/Devel/Size.pm
@@ -1,25 +1,22 @@
 package Devel::Size;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $warn $dangle);
+use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS $warn $dangle);
 
-require 5.008;
+require 5.005;
 require Exporter;
-require DynaLoader;
+require XSLoader;
 
-@ISA = qw(Exporter DynaLoader);
+@ISA = qw(Exporter);
 
-# This allows declaration   use Devel::Size ':all';
-%EXPORT_TAGS = ( 'all' => [ qw(
-    size total_size
-) ] );
+@EXPORT_OK = qw(size total_size);
 
-@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+# This allows declaration   use Devel::Size ':all';
+%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
 
-@EXPORT = qw( );
-$VERSION = '0.72_50';
+$VERSION = '0.77_50';
 
-bootstrap Devel::Size $VERSION;
+XSLoader::load( __PACKAGE__);
 
 $warn = 1;
 $dangle = 0; ## Set true to enable warnings about dangling pointers
@@ -276,9 +273,11 @@ Dan Sugalski dan@sidhe.org
 
 Small portion taken from the B module as shipped with perl 5.6.2.
 
-New pointer tracking & exception handling by BrowserUK
+Previously maintained by Tels <http://bloodgate.com>
+
+New pointer tracking & exception handling for 0.72 by BrowserUK
 
-Maintained now by Tels <http://bloodgate.com>
+Currently maintained by Nicholas Clark
 
 =head1 COPYRIGHT