two test failures

Message-ID: <20010918221702.A17408@rafael>
partly applied, #12074 already fixed half the patch

p4raw-link: @12071 on //depot/perl: 6facdfffe71025525d0728c47e940e0df82f9b65

p4raw-id: //depot/perl@12075

diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t
index 3f24fcd..4c6dde2 100755 (executable)
--- a/ext/threads/t/basic.t
+++ b/ext/threads/t/basic.t
@@ -11,6 +11,16 @@
 #########################
 
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require Config; import Config;
+    unless ($Config{'useithreads'}) {
+       print "1..0 # Skip: no useithreads\n";
+       exit 0; 
+    }
+}
+
 use ExtUtils::testlib;
 use strict;
 BEGIN { print "1..12\n" };