Restore dynext option processing for Parrot

Raku · Jun 9, 2013 · 831cb3a · 831cb3a
1 parent 1ff01d2
commit 831cb3a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/NQP/World.nqp b/src/NQP/World.nqp
@@ -33,6 +33,15 @@ class NQP::World is HLL::World {
         %!code_object_fixup_list := nqp::hash();
         %!code_stub_sc_idx := nqp::hash();
         @!clearup_tasks := nqp::list();
+
+#?if parrot
+        if nqp::defined(%*COMPILING<%?OPTIONS><dynext>) {
+            my $dynext_path  := %*COMPILING<%?OPTIONS><dynext>;
+            my @dynext_paths := pir::getinterp__P()[pir::const::IGLOBALS_LIB_PATHS][pir::const::PARROT_LIB_PATH_DYNEXT];
+
+            @dynext_paths.push($dynext_path);
+        }
+#?endif
     }
 
     # Creates a new lexical scope and puts it on top of the stack.