From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 13 Nov 2006 14:30:15 +0000 (+0000)
Subject: The latest regression test to Scalar::Util doesn't pass with threaded perls
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db8130dd06b1902305a530805d6d11a3894c328e;p=p5sagit%2Fp5-mst-13.2.git

The latest regression test to Scalar::Util doesn't pass with threaded perls

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

diff --git a/ext/List/Util/t/readonly.t b/ext/List/Util/t/readonly.t
index 7415759..42ed3d8 100644
--- a/ext/List/Util/t/readonly.t
+++ b/ext/List/Util/t/readonly.t
@@ -44,6 +44,8 @@ sub try
 }
 
 $var = 123;
-ok( try ("abc"), 'reference a constant in a sub');
+{
+    local $TODO = $Config::Config{useithreads} ? "doesn't work with threads" : undef;
+    ok( try ("abc"), 'reference a constant in a sub');
+}
 ok( !try ($var), 'reference a non-constant in a sub');
-