From 7054d385c2fe319a483364d04f6b6221fcf83c29 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 12 Mar 2001 01:36:18 +0000
Subject: corrected bug in display

---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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->($_);
                                          }
-- 
cgit v1.2.1