Make sure @?INC strings are properly ro

rakudo · May 21, 2015 · 83f09e0 · 83f09e0
1 parent c006cd1
commit 83f09e0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -671,9 +671,10 @@ class Perl6::World is HLL::World {
         $DEBUG(($push ?? "Push" !! "Unshift") ~ "ing to @?INC:") if $DEBUG;
 
         for $arglist -> $arg {
-            my $string := nqp::index($arg,'#') == -1
+            my $string := nqp::decont(nqp::index($arg,'#') == -1
               ?? nqp::hllizefor("file#$arg", 'perl6')
-              !! $arg;
+              !! $arg
+            );
             $push
               ?? nqp::push($INC,$string)
               !! nqp::unshift($INC,$string);