[perl #61060] Parser bug with attributes and blocks

[via RT]

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


This is a bit of a fragile one as it moves around depending on what NCI
functions I have compiled. This segfaults for me:

class foo { has $x; method y() { { $x } } }

Previously it segfaulted like this:

class foo { has $x; method y($bar) { given (1) { baz($x, $bar) } } }