Re: Unexpected parsing

This is fine:

c:\test>perl -MO=Deparse -e "my $c; 1 ? $c : my( $d ); $d"
my $c;
$c;
$d;
-e syntax OK
[download]

In your version, it's trying to parse an attribute--like $c :shared

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.