diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/services.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index 69de0cb00..d7448c0ae 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -281,10 +281,7 @@ sub ask_standalone_gtk { gtkpack__(Gtk3::HBox->new(0,0), gtksignal_connect(Gtk3::Button->new(translate($a)), clicked => sub { my $action = $a eq "Start" ? 'restart' : 'stop'; - log::explanations(qq(GP_LANG="UTF-8" service $service $action)); - # 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($_); + _run_action($service, $action); $update_service->($service, $label); })) if !$is_xinetd_service; } (N_("Start"), N_("Stop")) |