From db8130dd06b1902305a530805d6d11a3894c328e Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 13 Nov 2006 14:30:15 +0000 Subject: The latest regression test to Scalar::Util doesn't pass with threaded perls p4raw-id: //depot/perl@29262 --- ext/List/Util/t/readonly.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'ext/List/Util') diff --git a/ext/List/Util/t/readonly.t b/ext/List/Util/t/readonly.t index 7415759010..42ed3d811c 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'); - -- cgit v1.2.1