From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 14 Apr 2011 19:06:56 +0000 (+0100)
Subject: Convert to XSLoader.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=568039a07631d914df1e4903cc54f0205d33cef9;hp=30fe4f47f54133b9d31e3af111efbf7b3e13b213;p=p5sagit%2FDevel-Size.git

Convert to XSLoader.
---

diff --git a/CHANGES b/CHANGES
index a00e7cb..c0a7b05 100644
--- 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
--- 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