Locale decode output of command

Otherwise strange encoding errors seem to happen.
This commit is contained in:
Tom Willemse 2013-08-14 21:50:44 +02:00
parent e50a16cd80
commit 4807c6194a

View file

@ -45,7 +45,7 @@ sub refresh {
my $text = " " x $ncol; my $text = " " x $ncol;
my $rend = [($self->{rs_tabbar}) x $ncol]; my $rend = [($self->{rs_tabbar}) x $ncol];
my $output = `$self->{command} $ncol`; my $output = $self->locale_decode(`$self->{command} $ncol`);
substr $text, 0, length $output, $output; substr $text, 0, length $output, $output;
my $idx = 0; my $idx = 0;