Perlito5 - perl6 - call

fglock · Oct 10, 2013 · 219ca58 · 219ca58
1 parent a64c91d
commit 219ca58
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12741,7 +12741,7 @@ sub Perlito5::Perl6::PrettyPrinter::call {
     shift(@dd);
     my $open = '(';
     render(shift(@dd), $level, $out);
-    push(@{$out}, '->');
+    push(@{$out}, '.');
     my $d = $dd[0];
     render($d, $level, $out);
     $dd[0] = 'list:<,>';

diff --git a/src5/lib/Perlito5/Perl6/PrettyPrinter.pm b/src5/lib/Perlito5/Perl6/PrettyPrinter.pm
@@ -286,7 +286,7 @@ sub call {
     shift @dd;
     my $open = '(';
     render( shift(@dd), $level, $out );
-    push @$out, '->';
+    push @$out, '.';
     my $d = $dd[0];
     render( $d, $level, $out );
     $dd[0] = 'list:<,>';