summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2004-10-05 06:42:45 +0000
committerPablo Saratxaga <pablo@mandriva.com>2004-10-05 06:42:45 +0000
commitdef2682432056fc214fd7b519bda14a447b5f5d3 (patch)
treeb41367dc79913c0f7c4d487b71ae2db4e834ec54 /perl-install
parent4e6ed1b32e68b966de65d9553d5b64120d9eccdb (diff)
downloaddrakx-def2682432056fc214fd7b519bda14a447b5f5d3.tar
drakx-def2682432056fc214fd7b519bda14a447b5f5d3.tar.gz
drakx-def2682432056fc214fd7b519bda14a447b5f5d3.tar.bz2
drakx-def2682432056fc214fd7b519bda14a447b5f5d3.tar.xz
drakx-def2682432056fc214fd7b519bda14a447b5f5d3.zip
fixed encoding problem with the output of start/stop init scripts
(the output must be forced to utf-8 in order to have it displayed in gtk2)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index f3f565217..581f5fc92 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -237,7 +237,9 @@ sub ask_standalone_gtk {
gtkpack__(Gtk2::HBox->new(0,0), gtksignal_connect(Gtk2::Button->new(translate($a)),
clicked => sub {
my $action = $a eq "Start" ? 'restart' : 'stop';
- local $_ = `service $service $action 2>&1`; s/\033\[[^mG]*[mG]//g;
+ # as we need the output in UTF-8, force it
+ local $_ = `GP_LANG="UTF-8" service $service $action 2>&1`; s/\033\[[^mG]*[mG]//g;
+ c::set_tagged_utf8($_);
$update_service->($service, $label);
$display->($_);
})) if !$is_xinetd_service;