Change 34864 by [EMAIL PROTECTED] on 2008/11/17 10:06:08
Skip two tests under ithreads, where the constant lives in the pad.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#43 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#43 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#42~34844~ 2008-11-16 10:00:42.000000000 -0800
+++ perl/ext/B/t/deparse.t 2008-11-17 02:06:08.000000000 -0800
@@ -28,6 +28,7 @@
feature->import(':5.10');
}
use Test::More tests => 74;
+use Config ();
use B::Deparse;
my $deparse = B::Deparse->new();
@@ -548,6 +549,7 @@
'???';
!1;
####
+# SKIP ? $Config::Config{useithreads} && "TODO doesn't work with threads"
# 61 tests that shouldn't be constant folded
x() if $a;
if ($a == 1) { x() } elsif ($b == 2) { z() }
@@ -571,6 +573,7 @@
# 65 tests for deparsing imported constants that got deleted from the original
namespace
warn O_SYNC;
####
+# SKIP ? $Config::Config{useithreads} && "TODO doesn't work with threads"
# 66 tests for deparsing constants which got turned into full typeglobs
warn O_EXCL;
eval '@Fcntl::O_EXCL = qw/affe tiger/;';
End of Patch.
