Basic support for PERL6LIB.

sorear · Jun 3, 2013 · ae1f8dc · ae1f8dc
1 parent 7c7c2ff
commit ae1f8dc
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -80,6 +80,12 @@ my $runobj = Q:CgOp { (box Str (cb_get_basedir)) };
 my $basedir = $runobj.IO.append("..").realpath;
 
 my @lib  = $basedir.append("lib"), ".".IO.realpath, (Q:CgOp { (sysquery (i 7)) } ~ "/niecza").IO.realpath;
+if %*ENV<PERL6LIB> {
+    for %*ENV<PERL6LIB>.split(/':' | ';'/) -> $path {
+        @lib.push: $path.IO.realpath;
+    }
+}
+
 my $lang = "CORE";
 my $safe = False;
 my $bcnd = "dotnet";