summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2018-01-07 21:25:05 +0000
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2018-03-12 20:07:11 +0000
commitb86e6150e694517213467045139b1badbdba5552 (patch)
tree026438187bd03613def07215c6aa9471f2e8a50b /perl-install/services.pm
parent125a6d66148781800c4b5c5f0d08ecd17d0dc74f (diff)
downloaddrakx-b86e6150e694517213467045139b1badbdba5552.tar
drakx-b86e6150e694517213467045139b1badbdba5552.tar.gz
drakx-b86e6150e694517213467045139b1badbdba5552.tar.bz2
drakx-b86e6150e694517213467045139b1badbdba5552.tar.xz
drakx-b86e6150e694517213467045139b1badbdba5552.zip
Remove leftover debug message.
Diffstat (limited to 'perl-install/services.pm')
-rw-r--r--perl-install/services.pm1
1 files changed, 0 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index e77d07511..f76b29b86 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -368,7 +368,6 @@ sub _systemd_services() {
log::explanations("Detected systemd running. Using systemctl introspection.");
# even if systemd is not running, we can detect status of shorewell service which is not wanted by:
my @opts = $::isInstall ? 'list-unit-files' : qw(--all list-units);
- print "chroot $::prefix /bin/systemctl --no-legend --no-pager --full @opts";
foreach (run_program::rooted_get_stdout($::prefix, '/bin/systemctl', '--no-legend', '--no-pager', '--full', @opts)) {
my ($name) = m!^(\S+)\.service\s+loaded!;
($name) = m!^(\S+)\.service\s+enabled! if $::isInstall && !$name;