[perl #133268] MoarVM with empty CONTROL {}

[brian d foy]

# New Ticket Created by  "brian d foy" 
# Please include the string:  [perl #133268]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133268 >


While running this program I get a MoarVM panic:

    2 + 2 = 4
    'two' is not numeric
    MoarVM panic: Trying to unwind over wrong handler

The program:

    sub add-two-things ( $first, $second ) {
        CATCH {
            when X::Str::Numeric {
                fail q/One of the arguments wasn't a number/
                }
            }

for $first, $second {
warn "'$_' is not numeric"  unless val($_) ~~ Numeric;
}

        return $first + $second;
        }

    my @items = < 2 2 3 two nine ten 1 37 0 0 >;

    for @items -> $first, $second {
    CONTROL {}
        my $sum = add-two-things( $first, $second );

        put $sum.defined ??
            "$first + $second = $sum" !!
            "You can't add $first and $second";
        }

-- 
brian d foy <brian.d....@gmail.com>
http://www.pair.com/~comdog/