From @ashgti

The S04 section on Statement Level Bare Blocks says​:

# Not an error​: Equivalent to "if foo() -> $x { say $x }"
  { say $^x } if foo();

$ perl6

{ say $^x } if 1;
_block141

if 1 -> $x { say $x }
1

Seems like this is not functioning correctly. for loops seem to work fine​:

$ perl6

{ say $^x } for 1..3;
1
2
3
for 1..3 { say $^x };
1
2
3

So, this might be if statement specific.

--
John Harrison

From @coke

On Wed Sep 29 21​:14​:01 2010, ash_gti wrote​:

The S04 section on Statement Level Bare Blocks says​:

# Not an error​: Equivalent to "if foo() -> $x { say $x }"
{ say $^x } if foo();

$ perl6

{ say $^x } if 1;
_block141

if 1 -> $x { say $x }
1

This now gives no output rather than the anonymous block's internal
name​:
10​:31 < [Coke]> rakudo​: { say $^x } if 1;
10​:31 <+p6eval> rakudo 38165a​: ( no output )

This still works​:
10​:32 < [Coke]> rakudo​: if 1 -> $x { say $x }
10​:32 <+p6eval> rakudo 38165a​: OUTPUT«1␤»

Seems like this is not functioning correctly. for loops seem to work
fine​:

$ perl6

{ say $^x } for 1..3;
1
2
3
for 1..3 { say $^x };
1
2
3

So, this might be if statement specific.

--
John Harrison

--
Will "Coke" Coleda

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

From @jnthn

On Wed Sep 29 21​:14​:01 2010, ash_gti wrote​:

The S04 section on Statement Level Bare Blocks says​:

# Not an error​: Equivalent to "if foo() -> $x { say $x }"
{ say $^x } if foo();

$ perl6

{ say $^x } if 1;
_block141

if 1 -> $x { say $x }
1

Seems like this is not functioning correctly. for loops seem to work fine​:

$ perl6

{ say $^x } for 1..3;
1
2
3
for 1..3 { say $^x };
1
2
3

So, this might be if statement specific.

It's fixed now for if/unless/given, and added tests to cover all of them to the appropriate test files in S04-statement-modifiers.

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