remove final traces of constant deparsing
authorDavid Mitchell <davem@iabyn.com>
Sun, 16 Aug 2009 19:02:39 +0000 (20:02 +0100)
committerDavid 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

index 921ceca..0bbc1e7 100644 (file)
@@ -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