MoarVM with empty CONTROL {} about old-issue-tracker

[p6rt]

From @briandfoy

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.foy@​gmail.com>
http://www.pair.com/~comdog/

[p6rt]

From @AlexDaniel

  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";
  > }
  >
 
 
   

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

From @zoffixznet

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 MoarVM/MoarVM#572 (also filed in Rakudo's repo​: rakudo/rakudo#1605 )

Closing this ticket in favour of those Issues.

[p6rt]

@zoffixznet - Status changed from 'open' to 'resolved'