_sysptycap_tty: decode using locale's charset if possible

1 files changed, 7 insertions, 1 deletions

diff --git a/perl5/Local/Interactive.pm b/perl5/Local/Interactive.pm
index 58d09d02..4ac8e92f 100644
--- a/perl5/Local/Interactive.pm
+++ b/perl5/Local/Interactive.pm
@@ -26,6 +26,8 @@ use Term::ANSIColor;
 use Local::ScriptStatus;
 use Sys::Hostname;
 use POSIX ":sys_wait_h";
+use I18N::Langinfo qw(langinfo CODESET);
+use Encode "decode";
 
 # Quoting perldoc perlmodlib: "As a general rule, if the module is
 # trying to be object oriented then export nothing. If it's just a
@@ -239,7 +241,11 @@ sub _sysptycap_tty {
     }
     $slave->close;
     exit 2 if $interrupted;
-    # TODO decode $output according to the locale's charset
+
+    # since sysread was raw bytes, want to decode if possible
+    my $codeset = eval { langinfo CODESET };
+    $output = decode $codeset, $output if $codeset;
+
     return { exit => $? >> 8, output => $output };
 }