skip appropriately when XS::APItest isn't available

XS::APItest isn't available under -Uusedl

diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t
index 495e12f..3f21b1b 100644 (file)
--- a/t/mro/method_caching.t
+++ b/t/mro/method_caching.t
@@ -72,7 +72,9 @@ my @testsubs = (
           is(MCTest::Derived->foo(0), 19,
             'redefining sub through glob alias via decl'); },
     sub { SKIP: {
-              skip_if_miniperl("no XS"); require XS::APItest;
+              skip_if_miniperl("no XS");
+              eval { require XS::APItest; }
+                or skip "XS::APItest not available", 1;
               *A = *{'MCTest::Base::foo'};
               XS::APItest::newCONSTSUB(\%main::, "A", 0, 20);
               is (MCTest::Derived->foo(0), 20,