From def2682432056fc214fd7b519bda14a447b5f5d3 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Tue, 5 Oct 2004 06:42:45 +0000 Subject: 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) --- perl-install/services.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') 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; -- cgit v1.2.1