summaryrefslogtreecommitdiff
path: root/mad
diff options
context:
space:
mode:
authorGerard Goossen <gerard@tty.nl>2007-06-27 13:58:28 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-07-07 08:05:24 +0000
commitd5d3e0f0cac42b271aa6d30a69d6eff7e2c063c2 (patch)
tree51eedfadd4650b292df2497bc2ca24fc5cd1a462 /mad
parentb3f5cf18528ca19187726d11aa6582cb64debc65 (diff)
downloadperl-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-xmad/Nomad.pm2
-rw-r--r--mad/t/p55.t4
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