Skip two tests under ithreads, where the constant lives in the pad.

p4raw-id: //depot/perl@34864

1 files changed, 3 insertions, 0 deletions

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 50abd358e4..a0889b8b64 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -28,6 +28,7 @@ BEGIN {
     feature->import(':5.10');
 }
 use Test::More tests => 74;
+use Config ();
 
 use B::Deparse;
 my $deparse = B::Deparse->new();
@@ -548,6 +549,7 @@ do {
 '???';
 !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 @@ warn O_CREAT;
 # 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/;';