Ensure we read in modules as utf8.

rakudo · Jun 6, 2010 · f1042d7 · f1042d7
1 parent 609fd63
commit f1042d7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
@@ -45,6 +45,7 @@ method need($name, %name_adverbs?) {
         unless $loaded_pir {
             my $?FILES := pir::substr($pm_file, 0, 2) eq './' ?? pir::substr($pm_file, 2) !! $pm_file;
             my $fh     := pir::open__PSS($pm_file, 'r');
+            $fh.encoding('utf8');
             my $source := $fh.readall();
             $fh.close();
             my $eval := Perl6::Compiler.compile($source);