Permalink
Browse files

Perlito - perl6 - fix a reference

  • Loading branch information...
1 parent ef76153 commit 02b74b616c37e7da13385821ea53df64f15179c9 @fglock committed Oct 16, 2013
Showing with 2 additions and 2 deletions.
  1. +1 −1 perlito5.pl
  2. +1 −1 src5/lib/Perlito5/Perl6/TreeGrammar.pm
View
@@ -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)
}
@@ -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} };
}
],

0 comments on commit 02b74b6

Please sign in to comment.