Support RAKUDO_PREFIX env var to be backwards compatible.

rakudo · Mar 20, 2019 · 1add622 · 1add622
1 parent efb35b0
commit 1add622
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/CompUnit/RepositoryRegistry.pm6 b/src/core/CompUnit/RepositoryRegistry.pm6
@@ -83,7 +83,9 @@ class CompUnit::RepositoryRegistry {
             }
         }
 
-        my str $prefix = nqp::getcurhllsym('$PERL6_HOME');
+        my str $prefix = nqp::existskey($ENV,'RAKUDO_PREFIX')
+          ?? nqp::atkey($ENV,'RAKUDO_PREFIX')
+          !! nqp::getcurhllsym('$PERL6_HOME');
 
         # XXX Various issues with this stuff on JVM , TEMPORARY
         my str $home;