From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 28 Jan 2002 08:09:53 +0000 (+0000)
Subject: 1st attempt at skipping broke threads case.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38506751601bfdd51b90f9e878ed0517263f4fd7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");
+    }
 }