summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-12 01:36:18 +0000
committerdamien <damien@mandriva.com>2001-03-12 01:36:18 +0000
commit7054d385c2fe319a483364d04f6b6221fcf83c29 (patch)
tree2b38076e03e40474845eb5c0ad10baddb3d76302 /perl-install
parent46457501e706176c8a59f5803df39694015239f7 (diff)
downloaddrakx-7054d385c2fe319a483364d04f6b6221fcf83c29.tar
drakx-7054d385c2fe319a483364d04f6b6221fcf83c29.tar.gz
drakx-7054d385c2fe319a483364d04f6b6221fcf83c29.tar.bz2
drakx-7054d385c2fe319a483364d04f6b6221fcf83c29.tar.xz
drakx-7054d385c2fe319a483364d04f6b6221fcf83c29.zip
corrected bug in display
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 854f7a5d3..34a6bc813 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -151,7 +151,7 @@ sub ask {
}}), "@$on_services" =~ /$service/ )),
map { my $a = $_;
gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_($a)),
- clicked => sub { my $c = "service $service " . (lc($a) eq "start" ? "restart" : lc($a)) . " 2>&1"; local $_=$strip->(`$c`); s/\033\[[^mG]*[mG]//g;
+ clicked => sub { my $c = "service $service " . (lc($a) eq "start" ? "restart" : lc($a)) . " 2>&1"; local $_=`$c`; s/\033\[[^mG]*[mG]//g;
($started, $action) = $update_service->($service, $l);
$display->($_);
}