diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-06-27 13:58:28 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-07 08:05:24 +0000 |
| commit | d5d3e0f0cac42b271aa6d30a69d6eff7e2c063c2 (patch) | |
| tree | 51eedfadd4650b292df2497bc2ca24fc5cd1a462 /mad | |
| parent | b3f5cf18528ca19187726d11aa6582cb64debc65 (diff) | |
| download | perl-d5d3e0f0cac42b271aa6d30a69d6eff7e2c063c2.tar.gz | |
p55: add 'declarator' to listop. Fixes 'pipe my ($r, $w)'
Message-ID: <20070627095828.GB11336@ostwald>
p4raw-id: //depot/perl@31553
Diffstat (limited to 'mad')
| -rwxr-xr-x | mad/Nomad.pm | 2 | ||||
| -rw-r--r-- | mad/t/p55.t | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/mad/Nomad.pm b/mad/Nomad.pm index 5ccda4ff90..79da555a4c 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 f3addd113c..9407f34b02 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 |