From @masak

<cedrvint> r​: my $bar = 'test'; my $foo0 = { given $bar { when Real {
1 } when Str { 2 } } }; $foo0().say;
<p6eval> rakudo da6569​: OUTPUT«2␤»
<masak> or use 'do'.
<masak> r​: my $bar = 'test'; my $foo0 = do given $bar { when Real { 1
}; when Str { 2 } }; say $foo0
<p6eval> rakudo da6569​: OUTPUT«2␤»
<cedrvint> masak++
<masak> also, I'm surprised Rakudo doesn't complain about the lack of
semicolon between your 'when's.
<masak> that's quite possibly a bug.
<masak> std​: given 1 { when Real { 1 } when Str { 2 } }
<p6eval> std a8bc48f​: OUTPUT«===SORRY!===␤Strange text after block
(missing comma, semicolon, comment marker?) [...]
* masak submits rakudobug
<cedrvint> don't! :)
<cedrvint> it would break my code ;)
<masak> ;)
<masak> sorry, I simply have to.

From @jnthn

On Sat Dec 01 13​:39​:34 2012, masak wrote​:

<cedrvint> r​: my $bar = 'test'; my $foo0 = { given $bar { when Real {
1 } when Str { 2 } } }; $foo0().say;
<p6eval> rakudo da6569​: OUTPUT«2␤»
<masak> or use 'do'.
<masak> r​: my $bar = 'test'; my $foo0 = do given $bar { when Real { 1
}; when Str { 2 } }; say $foo0
<p6eval> rakudo da6569​: OUTPUT«2␤»
<cedrvint> masak++
<masak> also, I'm surprised Rakudo doesn't complain about the lack of
semicolon between your 'when's.
<masak> that's quite possibly a bug.
<masak> std​: given 1 { when Real { 1 } when Str { 2 } }
<p6eval> std a8bc48f​: OUTPUT«===SORRY!===␤Strange text after block
(missing comma, semicolon, comment marker?) [...]
* masak submits rakudobug
<cedrvint> don't! :)
<cedrvint> it would break my code ;)
<masak> ;)
<masak> sorry, I simply have to.

Fails properly now​:

given 1 { when Real { 1 } when Str { 2 } }
===SORRY!===
Confused
at <unknown file>​:1
------> given 1 { when Real { 1 } <HERE>when Str { 2 } }

Tagging testneeded.

/jnthn

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

From @peschwa

Am Mo 11. Mär 2013, 12​:38​:22, jnthn@​jnthn.net schrieb​:

On Sat Dec 01 13​:39​:34 2012, masak wrote​:

<cedrvint> r​: my $bar = 'test'; my $foo0 = { given $bar { when Real {
1 } when Str { 2 } } }; $foo0().say;
<p6eval> rakudo da6569​: OUTPUT«2␤»
<masak> or use 'do'.
<masak> r​: my $bar = 'test'; my $foo0 = do given $bar { when Real { 1
}; when Str { 2 } }; say $foo0
<p6eval> rakudo da6569​: OUTPUT«2␤»
<cedrvint> masak++
<masak> also, I'm surprised Rakudo doesn't complain about the lack of
semicolon between your 'when's.
<masak> that's quite possibly a bug.
<masak> std​: given 1 { when Real { 1 } when Str { 2 } }
<p6eval> std a8bc48f​: OUTPUT«===SORRY!===␤Strange text after block
(missing comma, semicolon, comment marker?) [...]
* masak submits rakudobug
<cedrvint> don't! :)
<cedrvint> it would break my code ;)
<masak> ;)
<masak> sorry, I simply have to.

Fails properly now​:

given 1 { when Real { 1 } when Str { 2 } }
===SORRY!===
Confused
at <unknown file>​:1
------> given 1 { when Real { 1 } <HERE>when Str { 2 } }

Tagging testneeded.

/jnthn

Add a test to roast in commit 1b0f074 as per the example above.

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