New initializer for $*PERL

rakudo · Sep 7, 2014 · 559027b · 559027b
1 parent eb9b209
commit 559027b
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/core/Perl.pm b/src/core/Perl.pm
@@ -27,10 +27,9 @@ class Perl does Systemic {
     method KERNELnames { <darwin linux win32> }
 }
 
-PROCESS::<$PERL> := Proxy.new(
-    FETCH => -> $       { PROCESS::<$PERL> := my $ = Perl.new; },
-    STORE => -> $, $val { PROCESS::<$PERL> := my $ = $val;     });
-
+multi sub INITIALIZE('$*PERL') {
+    PROCESS::<$PERL> := Perl.new;
+}
 multi postcircumfix:<{ }> (Perl $d, "name" )   {
     DEPRECATED('$*PERL.name', :what('$*PERL<name>') );
     $d.name