p55: add 'declarator' to listop. Fixes 'pipe my ($r, $w)'
Gerard Goossen [Wed, 27 Jun 2007 11:58:28 +0000 (13:58 +0200)]
Message-ID: <20070627095828.GB11336@ostwald>

p4raw-id: //depot/perl@31553

mad/Nomad.pm
mad/t/p55.t

index 5ccda4f..79da555 100755 (executable)
@@ -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}}) {
index f3addd1..9407f34 100644 (file)
@@ -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