[perl #116244] Custom prefix- and postfix operators with the same precedence don't mix

[via RT]

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #116244]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116244 >


Test file:

sub postfix:<_post_l_>($a) is assoc<left> is equiv(&prefix:<+>) {
    "<$a>"
}
sub prefix:<_pre_l_>  ($a) is assoc<left> is equiv(&prefix:<+>) {
    "($a)"
}
_pre_l_ 'a' _post_l_


./perl6 -Ilib  foo.pl
===SORRY!===
ResizablePMCArray: Can't pop from an empty array!


Maybe also of interest:

./perl6 --ll-exception -Ilib  foo.pl
ResizablePMCArray: Can't pop from an empty array!
current instr.: 'EXPR_reduce' pc 15766 (src/stage2/gen/NQPHLL.pir:5721)
(src/stage2/gen/NQPHLL.pm:688)
called from Sub 'EXPR' pc 15628 (src/stage2/gen/NQPHLL.pir:5657)
(src/stage2/gen/NQPHLL.pm:489)
called from Sub 'EXPR' pc 207808 (src/gen/perl6-grammar.pir:69050)
(src/Perl6/Grammar.pm:2845)
called from Sub 'statement' pc 58086 (src/gen/perl6-grammar.pir:20310)
(src/Perl6/Grammar.pm:929)
called from Sub 'statementlist' pc 56325
(src/gen/perl6-grammar.pir:19748) (src/Perl6/Grammar.pm:903)
called from Sub 'comp_unit' pc 51125 (src/gen/perl6-grammar.pir:17855)
(src/Perl6/Grammar.pm:702)
called from Sub 'TOP' pc 20860 (src/gen/perl6-grammar.pir:7632)
(src/Perl6/Grammar.pm:334)

the exception comes from this part here:

          op_infix:
            .local pmc right, left
            right = pop termstack
            left = pop termstack  # <-- HERE
            op[0] = left
            op[1] = right
            $P0 = opO['reducecheck']
            if null $P0 goto op_infix_1
            $S0 = $P0
            self.$S0(op)