diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2004-10-05 06:42:45 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2004-10-05 06:42:45 +0000 |
| commit | def2682432056fc214fd7b519bda14a447b5f5d3 (patch) | |
| tree | b41367dc79913c0f7c4d487b71ae2db4e834ec54 /perl-install | |
| parent | 4e6ed1b32e68b966de65d9553d5b64120d9eccdb (diff) | |
| download | drakx-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.pm | 4 |
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; |