From: Gerard Goossen <gerard@tty.nl>
Date: Wed, 27 Jun 2007 11:58:28 +0000 (+0200)
Subject: p55: add 'declarator' to listop. Fixes 'pipe my ($r, $w)'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5d3e0f0cac42b271aa6d30a69d6eff7e2c063c2;p=p5sagit%2Fp5-mst-13.2.git

p55: add 'declarator' to listop. Fixes 'pipe my ($r, $w)'
Message-ID: <20070627095828.GB11336@ostwald>

p4raw-id: //depot/perl@31553
---

diff --git a/mad/Nomad.pm b/mad/Nomad.pm
index 5ccda4f..79da555 100755
--- a/mad/Nomad.pm
+++ b/mad/Nomad.pm
@@ -674,7 +674,7 @@ sub ast {
 	return P5AST::listop->new(Kids => [@before,@retval]);
     }
 
-    push @retval, $self->madness('o ( [ {');
+    push @retval, $self->madness('o d ( [ {');
 
     my @newkids;
     for my $kid (@{$$self{Kids}}) {
diff --git a/mad/t/p55.t b/mad/t/p55.t
index f3addd1..9407f34 100644
--- a/mad/t/p55.t
+++ b/mad/t/p55.t
@@ -72,8 +72,6 @@ our %failing = map { $_, 1 } qw|
 
 ../t/comp/parser.t
 
-../t/op/getppid.t
-
 ../t/op/switch.t
 
 ../t/op/attrhand.t
@@ -159,7 +157,7 @@ $[ = 1
 # TODO from t/comp/parser.t
 $x = 1 for ($[) = 0;
 ########
-# TODO from t/op/getppid.t
+# from t/op/getppid.t
 pipe my ($r, $w)
 ########
 # TODO switch