On 24 April 2012 22:10, <[email protected]> wrote:
> services: Do not rely on /var/lock/subsys/$service to determin if a service
> is running or not.
BTW we should make is_service_running more robust by handling services
where status isn't implemented...
> Modified: drakx/trunk/perl-install/services.pm
> ===================================================================
> --- drakx/trunk/perl-install/services.pm 2012-04-24 20:10:33 UTC (rev
> 4243)
> +++ drakx/trunk/perl-install/services.pm 2012-04-24 20:10:35 UTC (rev
> 4244)
> @@ -239,7 +239,7 @@
> };
> 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;