Convert to XSLoader.

diff --git a/CHANGES b/CHANGES
index a00e7cb..c0a7b05 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -6,6 +6,7 @@ Revision history for Perl extension Devel::Size.
  * Rework bit-vector tracking mechanism to use a 256-way tree. This avoids
    making assumptions about 64-bit platforms' memory layouts, and eliminates
    the fatal error introduced in 0.72 when the assumption was violated.
+ * Convert to XSLoader
  * Resolve CPAN #49437 (Devel::Size adds magic in Perl 5.10)
 
 0.72 2008-10-14 BrowserUk 70 tests

diff --git a/lib/Devel/Size.pm b/lib/Devel/Size.pm
index 9d3f08f..f5282b5 100644 (file)
--- a/lib/Devel/Size.pm
+++ b/lib/Devel/Size.pm
@@ -5,9 +5,9 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $warn $dangle);
 
 require 5.008;
 require Exporter;
-require DynaLoader;
+require XSLoader;
 
-@ISA = qw(Exporter DynaLoader);
+@ISA = qw(Exporter);
 
 # This allows declaration   use Devel::Size ':all';
 %EXPORT_TAGS = ( 'all' => [ qw(
@@ -19,7 +19,7 @@ require DynaLoader;
 @EXPORT = qw( );
 $VERSION = '0.72_50';
 
-bootstrap Devel::Size $VERSION;
+XSLoader::load( __PACKAGE__);
 
 $warn = 1;
 $dangle = 0; ## Set true to enable warnings about dangling pointers