- Added binmode(STD*, ':utf8') to the code deparsed as Perl (-Rperl)

trizen · Dec 5, 2015 · 4a9ebf1 · 4a9ebf1
1 parent 39f8628
commit 4a9ebf1
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/bin/sidef b/bin/sidef
@@ -177,7 +177,15 @@ else {
         my $deparsed = deparse_structure($struct, $args{R});
 
         if (defined($args{R}) and lc($args{R}) eq 'perl') {
-            my $header = "\nuse lib (" . join(', ', map { qq{"\Q$_\E"} } @INC) . ");\n" . "use Sidef;\n";
+
+            my $header =
+                "\nuse lib ("
+              . join(', ', map { qq{"\Q$_\E"} } @INC) . ");\n"
+              . "use Sidef;\n\n"
+              . "binmode(STDIN, ':utf8');\n"
+              . "binmode(STDOUT, ':utf8');\n"
+              . "binmode(STDERR, ':utf8') if \$^P == 0;\n";
+
             $deparsed = $header . $deparsed;
         }
 
@@ -628,7 +636,7 @@ HEAD
 
                  close $fh;
              }
-           }
+         }
         } => $path
     );