This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/sub.t: Skip APItest test if that not built
authorKarl Williamson <khw@cpan.org>
Sat, 23 May 2020 13:56:46 +0000 (07:56 -0600)
committerSawyer X <xsawyerx@cpan.org>
Wed, 27 May 2020 08:09:32 +0000 (11:09 +0300)
t/op/sub.t

index 2b8ebcc..11d7147 100644 (file)
@@ -406,7 +406,7 @@ is ref($main::{rt_129916}), 'CODE', 'simple sub stored as CV in stash (main::)';
 # Calling xsub via ampersand syntax when @_ has holes
 SKIP: {
     skip "no XS::APItest on miniperl" if is_miniperl;
-    require XS::APItest;
+    skip "XS::APItest not available", 1 if ! eval { require XS::APItest };
     local *_;
     $_[1] = 1;
     &XS::APItest::unshift_and_set_defav;