| 929 | | my @userDaemons = grep { not $_->internal } $self->daemons; |
| 930 | | |
| 931 | | foreach my $userDaemon (@userDaemons) { |
| 932 | | return 1 if $userDaemon->running; |
| 933 | | } |
| 934 | | |
| 935 | | return |
| 936 | | 0; # XXX control that there isn't any user daemon incorrectly running |
| | 928 | |
| | 929 | |
| | 930 | my $noneDaemonEnabled = 1; |
| | 931 | |
| | 932 | my @daemons = $self->daemons; |
| | 933 | foreach my $daemon (@daemons) { |
| | 934 | next if $daemon->internal(); |
| | 935 | |
| | 936 | return 1 if $daemon->running; |
| | 937 | |
| | 938 | if ($daemon->service()) { |
| | 939 | $noneDaemonEnabled = 0; |
| | 940 | } |
| | 941 | } |
| | 942 | |
| | 943 | |
| | 944 | if ($noneDaemonEnabled) { |
| | 945 | return 1 if $self->service() |
| | 946 | } |
| | 947 | |
| | 948 | return 0; # XXX control that there isn't any user daemon incorrectly running |