From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 10 Oct 2004 15:21:24 +0000 (+0000)
Subject: Hack to make -Dusethreads -Uuseithreads -Uuse5005threads pass all tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54cf8e17f0d40db1139c694ac85474f8b0c35b86;p=p5sagit%2Fp5-mst-13.2.git

Hack to make -Dusethreads -Uuseithreads -Uuse5005threads pass all tests

p4raw-id: //depot/perl@23356
---

diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm
index 47367d3..fe5d84e 100644
--- a/ext/B/t/OptreeCheck.pm
+++ b/ext/B/t/OptreeCheck.pm
@@ -187,7 +187,18 @@ our %gOpts = 	# values are replaced at runtime !!
     );
 
 
-our $threaded = 1 if $Config::Config{usethreads};
+# Not sure if this is too much cheating. Officially we say that
+# $Config::Config{usethreads} is true if some sort of threading is in use,
+# in which case we ought to be able to use it in place of the || below.
+# However, it is now possible to Configure perl with "threads" but neither
+# ithreads or 5005threads, which forces the re-entrant APIs, but no perl
+# user visible threading. This seems to have the side effect that most of perl
+# doesn't think that it's threaded, hence the ops aren't threaded either.
+# Not sure if this is actually a "supported" configuration, but given that
+# ponie uses it, it's going to be used by something official at least in the
+# interim. So it's nice for tests to all pass.
+our $threaded = 1
+  if $Config::Config{useithreads} || $Config::Config{use5005threads};
 our $platform = ($threaded) ? "threaded" : "plain";
 our $thrstat = ($threaded)  ? "threaded" : "nonthreaded";