Work around Parrot #TT2040. This unbreaks module loading - and thus m…

…ake spectest - on Win32. Not sure why we end up with unicode strings here and not on other platforms, mind.
rakudo · Mar 6, 2011 · 4aa68e1 · 4aa68e1
1 parent bfdd78d
commit 4aa68e1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
@@ -35,7 +35,8 @@ method need($name, %name_adverbs?) {
 # stat[7]: modifytime
         if pir::stat__ISI($pir_file, 0)
            && pir::stat__ISI($pir_file, 7) >= pir::stat__ISI($pm_file, 7) {
-            pir::load_bytecode__vS($pir_file);
+            pir::load_bytecode__vS(pir::trans_encoding__SSI($pir_file,
+                pir::find_encoding__IS('fixed_8')));
             $loaded_pir := 1;
         }