Fix ($[1,2]).perl missing the $

rakudo · Oct 6, 2015 · 02e6198 · 02e6198
1 parent f04a24b
commit 02e6198
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -719,7 +719,7 @@ my class Array { # declared in BOOTSTRAP
         nqp::isnull($d) ?? Bool !! so $d.dynamic;
     }
     multi method perl(Array:D \SELF:) {
-        if not %*perlseen<TOP> { my %*perlseen = :TOP ; return self.perl }
+        if not %*perlseen<TOP> { my %*perlseen = :TOP ; return SELF.perl }
         if %*perlseen{self.WHICH} { %*perlseen{self.WHICH} = 2; return "Array_{self.WHERE}" }
         %*perlseen{self.WHICH} = 1;
         my $result = '$' x nqp::iscont(SELF) ~