1st attempt at skipping broke threads case.

p4raw-id: //depot/perlio@14462

diff --git a/ext/threads/shared/t/0nothread.t b/ext/threads/shared/t/0nothread.t
index 0ce4e6e..af83a41 100644 (file)
--- a/ext/threads/shared/t/0nothread.t
+++ b/ext/threads/shared/t/0nothread.t
@@ -1,11 +1,13 @@
 use strict;
-use Test::More ();
 use Config;
-if ($Config{'useithreads'}) {
-  Test::More->import( tests => 53 );
-}
-else {
-  Test::More->import(skip_all => "no useithreads");
+BEGIN {
+    require Test::More;
+    if ($Config{'useithreads'}) {
+       Test::More->import( tests => 53 );
+    }
+    else {
+       Test::More->import(skip_all => "no useithreads");
+    }
 }