Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fix, so that $(0) isnt treated like $()
  • Loading branch information
FROGGS committed Jan 23, 2013
1 parent 1ed6e51 commit 7707e42
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Perl6/Actions.pm
Expand Up @@ -3974,7 +3974,7 @@ class Perl6::Actions is HLL::Actions does STDActions {

method circumfix:sym<sigil>($/) {
my $past := $<semilist>.ast;
if $<sigil> eq '$' && !~$<semilist> { # for '$()'
if $<sigil> eq '$' && ~$<semilist> eq '' { # for '$()'
my $result_var := $past.unique('sm_result');
$past := QAST::Stmt.new(
# Evaluate RHS and call ACCEPTS on it, passing in $_. Bind the
Expand Down

0 comments on commit 7707e42

Please sign in to comment.