This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The latest regression test to Scalar::Util doesn't pass with threaded perls
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 13 Nov 2006 14:30:15 +0000 (14:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 13 Nov 2006 14:30:15 +0000 (14:30 +0000)
p4raw-id: //depot/perl@29262

ext/List/Util/t/readonly.t

index 7415759..42ed3d8 100644 (file)
@@ -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');
-