projects
/
perl.git
/ commitdiff
free
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
9cc1a8e
)
remove final traces of constant deparsing
author
David Mitchell <davem@iabyn.com>
Sun, 16 Aug 2009 19:02:39 +0000 (20:02 +0100)
committer
David Mitchell <davem@iabyn.com>
Sun, 16 Aug 2009 19:02:39 +0000 (20:02 +0100)
(
ef0c5631d3
missed reverting a bit of
2990415a45
)
ext/B/t/deparse.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/B/t/deparse.t
b/ext/B/t/deparse.t
index
921ceca
..
0bbc1e7
100644
(file)
--- 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