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

[perl #133268] MoarVM with empty CONTROL {}

Thread Previous | Thread Next
From:
Zoffix Znet via RT
Date:
June 9, 2018 12:17
Subject:
[perl #133268] MoarVM with empty CONTROL {}
Message ID:
rt-4.0.24-10606-1528546615-1067.133268-15-0@perl.org
On Fri, 08 Jun 2018 15:24:32 -0700, alex.jakimenko@gmail.com wrote:
> 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";
> > }
> >


This is a dupe of https://github.com/MoarVM/MoarVM/issues/572 (also filed in Rakudo's repo: https://github.com/rakudo/rakudo/issues/1605 )

Closing this ticket in favour of those Issues.

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