From dfc605d42b22063d49d29cc4a4779f74ce3a9a42 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:35 +0000
Subject: services: Do not rely on /var/lock/subsys/$service to determin if a
 service is running or not.

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

(limited to 'perl-install/services.pm')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 73949c6f0..ea41eb878 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -239,7 +239,7 @@ sub ask_standalone_gtk {
     };
     my $update_service = sub {
 	my ($service, $label) = @_;
-	my $started = -e "/var/lock/subsys/$service";
+	my $started = is_service_running($service);
 	$label->set_label($started ? N("running") : N("stopped"));
     };
     my $b = Gtk2::EventBox->new;
-- 
cgit v1.2.1