From martin@senfdax.de

Hi there,

following code dies in this line​:

if my $match = $r.match($meth, $uri) { die "What?!" unless $match }

this happens on both moar-2015.12 and moar-2016.03

class Abc {
  has Str $.method;
  has Regex $.path is required;

  method match (Str $method, Str $path) {
  return False if $.method ne $method;
  return $path$.path;
  }
}

my @​routes = (
  Abc.new(method => "GET", path => / ^ '/'foo $ / );
  Abc.new(method => "POST", path => / ^ '/'bar $ /);
);

sub foo($meth, $uri) {
  for @​routes -> $r {
  if my $match = $r.match($meth, $uri) { die "What?!" unless $match }
  }
}

my @​hex = ('A'..'F', 'a'..'f', 0..9).flat;
for @​hex -> $first {
  for @​hex -> $second {
  foo("POST", 'http://127.0.0.1/utf8');
  }
}

From @zoffixznet

Still present in 2016.06-154-g55c359e built on MoarVM version 2016.06-9-g8fc21d5

Attempted to golf it, but failed.

From @bduggan

I was able to reproduce it with this​:

sub match ($str, $flip) {
  return False if $flip eq "no";
  return $str ~~ rx/foo/;
}

for 0..104 {
  for "no", "yes" -> $flip {
  if my $match = match("something", $flip) {
  die "What?!" unless $match
  }
  }
}

From @zoffixznet

On Sun, 10 Apr 2016 07​:56​:38 -0700, martin@​senfdax.de wrote​:

Hi there,

following code dies in this line​:

if my $match = $r.match($meth, $uri) { die "What?!" unless $match }

this happens on both moar-2015.12 and moar-2016.03

class Abc {
has Str $.method;
has Regex $.path is required;

method match \(Str $method, Str $path\) \{
    return False if $\.method ne $method;
    return $path ~~ $\.path;
\}

}

my @​routes = (
Abc.new(method => "GET", path => / ^ '/'foo $ / );
Abc.new(method => "POST", path => / ^ '/'bar $ /);
);

sub foo($meth, $uri) {
for @​routes -> $r {
if my $match = $r.match($meth, $uri) { die "What?!" unless $match }
}
}

my @​hex = ('A'..'F', 'a'..'f', 0..9).flat;
for @​hex -> $first {
for @​hex -> $second {
foo("POST", 'http://127.0.0.1/utf8');
}
}

Unable to reproduce this on This is Rakudo version 2016.12-10-g7a642f8 built on MoarVM version 2016.12
implementing Perl 6.c.

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

From @dogbert17

On Sun, 18 Dec 2016 15​:36​:31 -0800, cpan@​zoffix.com wrote​:

On Sun, 10 Apr 2016 07​:56​:38 -0700, martin@​senfdax.de wrote​:

Hi there,

following code dies in this line​:

if my $match = $r.match($meth, $uri) { die "What?!" unless $match }

this happens on both moar-2015.12 and moar-2016.03

class Abc {
has Str $.method;
has Regex $.path is required;

method match (Str $method, Str $path) {
return False if $.method ne $method;
return $path$.path;
}
}

my @​routes = (
Abc.new(method => "GET", path => / ^ '/'foo $ / );
Abc.new(method => "POST", path => / ^ '/'bar $ /);
);

sub foo($meth, $uri) {
for @​routes -> $r {
if my $match = $r.match($meth, $uri) { die "What?!" unless
$match }
}
}

my @​hex = ('A'..'F', 'a'..'f', 0..9).flat;
for @​hex -> $first {
for @​hex -> $second {
foo("POST", 'http://127.0.0.1/utf8');
}
}

Unable to reproduce this on This is Rakudo version 2016.12-10-g7a642f8
built on MoarVM version 2016.12
implementing Perl 6.c.

Fixed with commit rakudo/rakudo@25e9fd7

For reference​:
Raku/nqp@2016.07-140-g2df0a06...2016.07-177-gb416158
MoarVM/MoarVM@2016.07-17-g40948f6...2016.07-24-g31eccd7

From @moritz

Test added in rakudo/rakudo@ee5150e424

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