diff options
| -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 |