[perl #78142] [BUG] Statement level bare blocks for if statements

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

• [perl #78142] [BUG] Statement level bare blocks for if statements by Will Coleda via RT