In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bac1ae50f815c189d267d9fccb2cb35791975bf7?hp=9cc1a8e3162a220874abefd543952e2e193d1f61>
- Log ----------------------------------------------------------------- commit bac1ae50f815c189d267d9fccb2cb35791975bf7 Author: David Mitchell <[email protected]> Date: Sun Aug 16 20:02:39 2009 +0100 remove final traces of constant deparsing (ef0c5631d3 missed reverting a bit of 2990415a45) ----------------------------------------------------------------------- Summary of changes: ext/B/t/deparse.t | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 921ceca..0bbc1e7 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -516,8 +516,8 @@ 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(); } +if (do { foo(); 'glipp' }) { x(); } +if (do { ++$a; 'glipp' }) { x(); } #### # TODO Only strict 'refs' currently supported # 68 strict -- Perl5 Master Repository
