Skip eintr_print.t under miniperl

diff --git a/t/io/eintr_print.t b/t/io/eintr_print.t
index 1e378face8e3d28db9baa1f85ca658feb1f65bda..1a0d84d39ce2e26fde07dea562feeda7af61ba74 100644 (file)
--- a/t/io/eintr_print.t
+++ b/t/io/eintr_print.t
@@ -7,6 +7,8 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
+    skip_all_if_miniperl("No XS under miniperl");
 }
 
 use strict;
@@ -16,8 +18,6 @@ use Config;
 use Time::HiRes;
 use IO::Handle;
 
-require './test.pl';
-
 skip_all("only for dev versions for now") if ((int($]*1000) & 1) == 0);
 skip_all("does not match platform whitelist")
     unless ($^O =~ /^(linux|.*bsd|darwin|solaris)$/);