Return bare $-sigil for anonymous parameters.

Parameter.perl previously didn't return a $-sigil for anonymous positional parameters without post-constraints. This patch fixes that.
rakudo · Aug 17, 2014 · 1c097d4 · 1c097d4
1 parent 7752c57
commit 1c097d4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -173,7 +173,7 @@ my class Parameter { # declared in BOOTSTRAP
             $perl ~= ':U';
         }
         $perl ~= " ::$_" for @($.type_captures);
-        my $name = $!variable_name || '';
+        my $name = $.name;
         if $!flags +& $SIG_ELEM_IS_CAPTURE {
             $name = '|' ~ $name;
         } elsif $!flags +& $SIG_ELEM_IS_PARCEL {
@@ -214,7 +214,7 @@ my class Parameter { # declared in BOOTSTRAP
             $sig ~~ s/^^ ':'//;
             $rest ~= ' ' ~ $sig;
         }
-        if $name ne '$' or $rest {
+        if $name or $rest {
             $perl ~= ($perl ?? ' ' !! '') ~ $name;
             $perl ~~ s/^^ \s* Mu \s+//;
         }