diff options
| -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; |