In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d74598f67c6a7840edb232da7587fb7ecd63d7a0?hp=857ef68b8cd0841e5af0208e3137884c3fe43a80>
- Log ----------------------------------------------------------------- commit d74598f67c6a7840edb232da7587fb7ecd63d7a0 Author: David Mitchell <[email protected]> Date: Mon Aug 17 14:59:50 2009 +0100 more excising of const deparsing from maint (Unexpected TODO succeedng seems to be confusing the smoke output) ----------------------------------------------------------------------- Summary of changes: ext/B/t/deparse.t | 16 +--------------- 1 files changed, 1 insertions(+), 15 deletions(-) diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 0bbc1e7..0feb315 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; -- Perl5 Master Repository
