summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/rhimport.pm b/rhimport.pm
index 1c7efb4..8cd609d 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -168,6 +168,7 @@ sub import_playlist
print "Starting import from playlist $playlist to $dropbox";
my @entries;
open (FILE, $playlist) or die "can't open playlist $playlist: $!";
+ binmode(FILE, ":utf8");
while (my $entry = <FILE>) {
next if($entry =~ /^#/);
next if($entry =~ /^\s/);
@@ -240,6 +241,9 @@ sub scp_put_file
$writer->autoflush(1);
local $SIG{CHLD} = 'DEFAULT';
my $pid = open3($writer, $reader, $error, @cmd);
+ binmode($reader, ":utf8");
+ binmode($writer, ":utf8");
+ binmode($error, ":utf8");
waitpid $pid, 0;
my $errstr = "";
if ( $? >> 8 ) {
@@ -256,6 +260,9 @@ sub ssh_exec_command
$writer->autoflush(1);
local $SIG{CHLD} = 'DEFAULT';
my $pid = open3($writer, $reader, $error, @cmd);
+ binmode($reader, ":utf8");
+ binmode($writer, ":utf8");
+ binmode($error, ":utf8");
waitpid $pid, 0;
my $out = join('', <$reader>);
my $errstr = "";