diff options
author | Gerard Goossen <gerard@tty.nl> | 2007-05-08 17:15:09 +0200 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-12 22:42:09 +0000 |
commit | e9cc17ba00cc39cdcabc27d876cb322b6bbd3a59 (patch) | |
tree | 05824ef224119c8d36635c68d8a2c4b7ab18d73e /mad/Nomad.pm | |
parent | b6214b8055070156c0c94b1aa6eb1e157422064b (diff) | |
download | perl-e9cc17ba00cc39cdcabc27d876cb322b6bbd3a59.tar.gz |
Disable slurping assigned of split when PL_madskills
Message-Id: <20070508164400.GA15860@ostwald>
p4raw-id: //depot/perl@31206
Diffstat (limited to 'mad/Nomad.pm')
-rwxr-xr-x | mad/Nomad.pm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/mad/Nomad.pm b/mad/Nomad.pm index c20d8b47c0..49659a8f04 100755 --- a/mad/Nomad.pm +++ b/mad/Nomad.pm @@ -2199,16 +2199,6 @@ sub ast { package PLXML::op_unpack; package PLXML::op_pack; package PLXML::op_split; - -sub ast { - my $self = shift; - my $results = $self->SUPER::ast(@_); - if (my @dest = $self->madness('R')) { - return PLXML::op_aassign->newtype->new(Kids => [@dest, $self->madness('ox'), $results]); - } - return $results; -} - package PLXML::op_join; package PLXML::op_list; |