Retract #20260.

[p5sagit/p5-mst-13.2.git] / ext / IO / lib / IO / t / io_xs.t

diff --git a/ext/IO/lib/IO/t/io_xs.t b/ext/IO/lib/IO/t/io_xs.t
index 2449fc4..2ef9577 100644 (file)
--- a/ext/IO/lib/IO/t/io_xs.t
+++ b/ext/IO/lib/IO/t/io_xs.t
@@ -10,12 +10,16 @@ BEGIN {
 use Config;
 
 BEGIN {
-    if(-d "lib" && -f "TEST") {
-        if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
-           print "1..0\n";
+    if($ENV{PERL_CORE}) {
+        if ($Config{'extensions'} !~ /\bIO\b/) {
+           print "1..0 # Skip: IO extension not built\n";
            exit 0;
         }
     }
+    if( $^O eq 'VMS' && $Config{'vms_cc_type'} ne 'decc' ) {
+        print "1..0 # Skip: not compatible with the VAXCRTL\n";
+        exit 0;
+    }
 }
 
 use IO::File;