Perlito - perl6 - fix a reference

fglock · Oct 16, 2013 · 02b74b6 · 02b74b6
1 parent ef76153
commit 02b74b6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12293,7 +12293,7 @@ sub Perlito5::Perl6::TreeGrammar::refactor_range_operator {
     die('Unimplemented');
     my($class, $in) = @_;
     Perlito5::TreeGrammar::render(['And' => ['Lookup' => 'code', ['Value' => 'infix:<..>']]->['Lookup' => 'arguments', ['And' => ['Index' => 0, ['And' => ['Ref' => 'Perlito5::AST::Val::Int']->['Lookup' => 'int', ['Value' => 0]]]], ['Index' => 1, ['Action' => sub {
-        $in{'name'} = 'p6:prefix:<^>';
+        $in->{'name'} = 'p6:prefix:<^>';
         shift(@{$in->{'arguments'}})
     }]]]]], $in)
 }

diff --git a/src5/lib/Perlito5/Perl6/TreeGrammar.pm b/src5/lib/Perlito5/Perl6/TreeGrammar.pm
@@ -16,7 +16,7 @@ sub refactor_range_operator {
                                   [ Index => 1,
                                         # TODO   0..$#num to @num.keys
                                                     [ Action => sub {
-                                                        $in{name} = 'p6:prefix:<^>';
+                                                        $in->{name} = 'p6:prefix:<^>';
                                                         shift @{ $in->{arguments} };
                                                       }
                                                     ],