diff options
| -rw-r--r-- | t/mro/method_caching.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t index 495e12fddc..3f21b1b6b3 100644 --- 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, |