develooper Front page | perl.perl6.compiler | Postings from June 2018

[perl #133268] MoarVM with empty CONTROL {}

Thread Previous | Thread Next
From:
Aleks-Daniel Jakimenko-Aleksejev via RT
Date:
June 8, 2018 22:24
Subject:
[perl #133268] MoarVM with empty CONTROL {}
Message ID:
rt-4.0.24-18265-1528496672-1735.133268-80-0@perl.org
Golf:

CONTROL {}; warn 42

On 2018-06-08 15:11:08, comdog wrote:
> 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";
> }
>


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About