diff options
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index f8c6a4aaa..f3aa02e49 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -337,7 +337,8 @@ sub starts_on_boot ($) { return 0; while (my $line = <F>) { chomp $line; - if ($line =~ /:on/) { + if (($line =~ /:on/) || # service with init script + ($line =~ /^\s*$service\s+on\s*$/)) { # xinetd service close F; return 1; } @@ -353,5 +354,11 @@ sub start_service_on_boot ($) { return 1; } +sub do_not_start_service_on_boot ($) { + my ($service) = @_; + run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service) + or return 0; + return 1; +} 1; |