Skip to content
Browse files

fixed bugs

  • Loading branch information...
1 parent 06d08af commit 55bed69572d4c6d03a7cb2b49eb7de1d6a69737d Jimmy Zhuo committed Jun 26, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/m0/perl5/m0_interp.pl
View
2 src/m0/perl5/m0_interp.pl
@@ -520,13 +520,15 @@ sub m0_opfunc_deref {
my ($cf, $a1, $a2, $a3) = @_;
m0_say "deref $a1, $a2, $a3";
+ no strict 'refs';
$$cf->[$a1] = $$cf->[$a2][ i($$cf,$a3) ];
}
sub m0_opfunc_set_ref {
my ($cf, $a1, $a2, $a3) = @_;
m0_say "set_ref $a1, $a2, $a3";
+ no strict 'refs';
$$cf->[$a1][ i($$cf,$a2) ] = $$cf->[$a3];
}

0 comments on commit 55bed69

Please sign in to comment.
Something went wrong with that request. Please try again.