Convert t/re/subst_amp.t to test.pl, strict and warnings.

[perl5.git] / ext / XS-APItest / APItest.pm

diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm
index 474d528..b95af26 100644 (file)
--- a/ext/XS-APItest/APItest.pm
+++ b/ext/XS-APItest/APItest.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Carp;
 
-use base 'DynaLoader';
+require XSLoader;
 
 # Export everything since these functions are only used by a test script
 # Export subpackages too - in effect, export all their routines into us, then
@@ -36,7 +36,7 @@ sub import {
        }
     }
     foreach (keys %{$exports||{}}) {
-       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts)\z/;
+       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts|looprest|scopelessblock|stmtasexpr|stmtsasexpr|loopblock|blockasexpr|swaplabel|labelconst|arrayfullexpr|arraylistexpr|arraytermexpr|arrayarithexpr|arrayexprflags)\z/;
        $^H{"XS::APItest/$_"} = 1;
        delete $exports->{$_};
     }
@@ -50,7 +50,7 @@ sub import {
     }
 }
 
-our $VERSION = '0.23';
+our $VERSION = '0.27';
 
 use vars '$WARNINGS_ON_BOOTSTRAP';
 use vars map "\$${_}_called_PP", qw(BEGIN UNITCHECK CHECK INIT END);
@@ -87,11 +87,11 @@ END {
 }
 
 if ($WARNINGS_ON_BOOTSTRAP) {
-    bootstrap XS::APItest $VERSION;
+    XSLoader::load();
 } else {
     # More CHECK and INIT blocks that could warn:
     local $^W;
-    bootstrap XS::APItest $VERSION;
+    XSLoader::load();
 }
 
 1;