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/Nomad.pm | |
| 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/Nomad.pm')
| -rwxr-xr-x | mad/Nomad.pm | 2 |
1 files changed, 1 insertions, 1 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}}) { |