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 (executable)
--- 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 (file)
--- 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