Attachment 9885 Details for Bug 22346 – Patch to remove leftover debug output

Patch to remove leftover debug output

0003-Remove-leftover-debug-message.patch (text/plain), 1.00 KB, created by Martin Whitaker on 2018-01-07 23:11:20 CET

(hide)

Description:

Filename:

MIME Type:

Creator: Martin Whitaker

Created: 2018-01-07 23:11:20 CET

Size: 1.00 KB

patch

obsolete

>From 097af67c4088045592fae21016ac32bd7f9b0010 Mon Sep 17 00:00:00 2001
>From: Martin Whitaker <mageia@martin-whitaker.me.uk>
>Date: Sun, 7 Jan 2018 21:25:05 +0000
>Subject: [PATCH 3/3] Remove leftover debug message.
>
>
>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;
>-- 
>2.13.6
>

From 097af67c4088045592fae21016ac32bd7f9b0010 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 7 Jan 2018 21:25:05 +0000
Subject: [PATCH 3/3] Remove leftover debug message.


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;
-- 
2.13.6

Actions: View

Attachments on bug 22346: 9883 | 9884 | 9885 | 10042