Perlito5 - perl6 - sub has *@_ signature by default

fglock · Oct 15, 2013 · 68a48a3 · 68a48a3
1 parent a2918cb
commit 68a48a3
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12805,8 +12805,7 @@ package Perlito5::AST::Sub;
             } @{$self->{'args'}}), ['var' => '*@_']])
         }
         else {
-            push(@parts, ['paren' => '(', ['bareword' => $self->{'sig'}]])
-                if defined($self->{'sig'})
+            push(@parts, ['paren' => '(', ['var' => '*@_']])
         }
         push(@parts, Perlito5::Perl6::emit_perl6_block($self->{'block'}))
             if defined($self->{'block'});

diff --git a/src5/lib/Perlito5/Perl6/Emitter.pm b/src5/lib/Perlito5/Perl6/Emitter.pm
@@ -662,11 +662,16 @@ package Perlito5::AST::Sub;
             push @parts, [ paren => '(', 
                             ( map {[ var => $_->emit_perl6(), '?' ]} @{$self->{args}} ),
                             [ var => '*@_' ]
-                         ]
+                         ];
         }
         else {
-            push @parts, [ paren => '(', [ bareword => $self->{sig} ] ]
-                if defined $self->{sig};
+
+            # TODO - use sig
+
+            # push @parts, [ paren => '(', [ bareword => $self->{sig} ] ]
+            #     if defined $self->{sig};
+
+            push @parts, [ paren => '(', [ var => '*@_' ] ];
         }
 
         push @parts, Perlito5::Perl6::emit_perl6_block($self->{block})