Further simplify services::_systemd_services()

'systemctl list-unit-files' returns the enabled/disabled status for all
native systemd services. So we only need to call 'systemctl is-enabled'
for the generated services.

This reduces clutter in the installer log file.

1 files changed, 3 insertions, 2 deletions

diff --git a/perl-install/services.pm b/perl-install/services.pm
index c2230351d..d7c219edc 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -375,14 +375,15 @@ sub _systemd_services() {
     my @services;
     log::explanations("Detected systemd. Using systemctl introspection.");
     foreach (run_program::rooted_get_stdout($::prefix, '/bin/systemctl', '--no-legend', '--no-pager', '--full', 'list-unit-files')) {
-        my ($name, $type) = m!^(\S+)\.(service|socket|timer)\s+(enabled|disabled|generated)!;
+        my ($name, $type, $status) = m!^(\S+)\.(service|socket|timer)\s+(enabled|disabled|generated)!;
         if ($name) {
             my $unit_name = "$name.$type";
             # We only look at non-template, non-linked service files in /lib
             # We also check for any non-masked sysvinit files as these are
             # also handled by systemd
             if ($name !~ /.*\@$/g && (-e "$::prefix/lib/systemd/system/$unit_name" or -e "$::prefix/etc/rc.d/init.d/$name") && ! -l "$::prefix/lib/systemd/system/$unit_name") {
-                push @services, [ _list_name($name, $type), !!run_program::rooted($::prefix, '/bin/systemctl', '--quiet', 'is-enabled', "$unit_name") ];
+                my $enabled = $status eq 'enabled' || $status eq 'generated' && !!run_program::rooted($::prefix, '/bin/systemctl', '--quiet', 'is-enabled', $unit_name);
+                push @services, [ _list_name($name, $type), $enabled ];
             }
         }
     }