05/14: gnu: clusterssh: Add bash-minimal to inputs.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 1e36af12c27b7429e946fcf0424c6960ec4baa6a
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Oct 19 23:21:10 2023 -0400

    gnu: clusterssh: Add bash-minimal to inputs.
    
    * gnu/packages/admin.scm (clusterssh) [inputs]: Add bash-minimal.
    [arguments]: Delete trailing #t.
    
    Change-Id: Icb6e0833e2dba3145c63294d003554c2de6bb169
---
 gnu/packages/admin.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 557c82524a..e470b61739 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -1774,8 +1774,7 @@ by bandwidth they use.")
              (substitute* (list "lib/App/ClusterSSH/Config.pm"
                                 "t/15config.t")
                (("xterm")
-                (which "xterm")))
-             #t))
+                (which "xterm")))))
          (add-before 'check 'delete-failing-tests
            (lambda _
              ;; This checks whether all code is nicely formatted.  The above
@@ -1783,8 +1782,7 @@ by bandwidth they use.")
              (delete-file "t/perltidy.t")
              ;; Update the manifest so t/manifest.t happily passes.
              (substitute* "MANIFEST"
-               (("t/perltidy.t\n") ""))
-             #t))
+               (("t/perltidy.t\n") ""))))
          (add-after 'install 'augment-library-path
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -1809,8 +1807,7 @@ by bandwidth they use.")
                                                "perl-try-tiny"
                                                "perl-x11-protocol"
                                                "perl-x11-protocol-other")))))))
-                  (find-files "." ".*")))
-               #t))))))
+                  (find-files "." ".*")))))))))
     (native-inputs
      (list perl-cpan-changes
            perl-file-slurp
@@ -1825,7 +1822,8 @@ by bandwidth they use.")
            perl-test-trap
            perltidy))
     (inputs
-     (list perl-exception-class
+     (list bash-minimal                 ;for wrap-program
+           perl-exception-class
            perl-sort-naturally
            perl-tk
            perl-try-tiny