diff options
| author | David Mitchell <davem@iabyn.com> | 2012-10-09 11:59:37 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-10-10 16:39:21 +0100 |
| commit | ca3319858bbce2cc97800745a8a871cd3cab6a87 (patch) | |
| tree | 31b2ca26c8b3fb707b0ffce54b414d2f23b7ac2e /dist | |
| parent | 4505a31f43ca4e1a0e9203b389f6d4bebab9d899 (diff) | |
| download | perl-ca3319858bbce2cc97800745a8a871cd3cab6a87.tar.gz | |
Deparse crashed on argless sort()
This would crash
@a = sort;
(Test will come in a separate commit)
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index b36a0c0947..354e30f62c 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -2753,6 +2753,7 @@ sub indirop { } } elsif ( !$indir && $name eq "sort" + && !null($op->first->sibling) && $op->first->sibling->name eq 'entersub' ) { # We cannot say sort foo(bar), as foo will be interpreted as a |