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

[ash]

# New Ticket Created by  John (ash) 
# Please include the string:  [perl #78142]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=78142 >


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