This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse crashed on argless sort()
[perl5.git] / dist / B-Deparse / Deparse.pm
index b36a0c0..354e30f 100644 (file)
@@ -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