Merge branch 'more-param-perl' of github.com:peschwa/rakudo into nom

rakudo · Jan 12, 2015 · 107a5c2 · 107a5c2
2 parents 25956c3 + 1c097d4
commit 107a5c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -174,7 +174,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 {
@@ -215,7 +215,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+//;
         }