diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-13 14:30:15 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-13 14:30:15 +0000 |
| commit | db8130dd06b1902305a530805d6d11a3894c328e (patch) | |
| tree | 954eeef1511016598c0c2f8e7146fe25176772fc /ext/List/Util | |
| parent | 19d9c0e45bf900f576aa43d944ccfe4aebd3f678 (diff) | |
| download | perl-db8130dd06b1902305a530805d6d11a3894c328e.tar.gz | |
The latest regression test to Scalar::Util doesn't pass with threaded perls
p4raw-id: //depot/perl@29262
Diffstat (limited to 'ext/List/Util')
| -rw-r--r-- | ext/List/Util/t/readonly.t | 6 |
1 files changed, 4 insertions, 2 deletions
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'); - |