summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2009-08-17 14:59:50 +0100
committerDavid Mitchell <davem@iabyn.com>2009-08-17 14:59:50 +0100
commitd74598f67c6a7840edb232da7587fb7ecd63d7a0 (patch)
tree969606a98b6d6cd8999e255152a878f8e06cb79b
parent857ef68b8cd0841e5af0208e3137884c3fe43a80 (diff)
downloadperl-d74598f67c6a7840edb232da7587fb7ecd63d7a0.tar.gz
more excising of const deparsing from maint
(Unexpected TODO succeedng seems to be confusing the smoke output)
-rw-r--r--ext/B/t/deparse.t16
1 files changed, 1 insertions, 15 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 0bbc1e72e1..0feb315ea1 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -27,7 +27,7 @@ BEGIN {
require feature;
feature->import(':5.10');
}
-use Test::More tests => 71;
+use Test::More tests => 70;
use Config ();
use B::Deparse;
@@ -505,20 +505,6 @@ do {
'???';
!1;
####
-# TODO ? $Config::Config{useithreads} && "doesn't work with threads"
-# 61 tests that shouldn't be constant folded
-# It might be fundamentally impossible to make this work on ithreads, in which
-# case the TODO should become a SKIP
-x() if $a;
-if ($a == 1) { x() } elsif ($b == 2) { z() }
-if (do { foo(); GLIPP }) { x() }
-if (do { $a++; GLIPP }) { x() }
->>>>
-x() if $a;
-if ($a == 1) { x(); } elsif ($b == 2) { z(); }
-if (do { foo(); 'glipp' }) { x(); }
-if (do { ++$a; 'glipp' }) { x(); }
-####
# TODO Only strict 'refs' currently supported
# 68 strict
no strict;