gnu: pdsh: Update to 2.33.

pdsh was located on Google Code, which shut down recently.
Four other distros switched to the new URL introduced in
this commit.

* gnu/packages/ssh.scm (pdsh): Update to 2.33.
[source]: Use new upstream URL.
(arguments)[phases]: Add new files to substitute in 'patch-/bin/sh' phase.
Add new 'patch-tests' phase to make test 't6036-long-output-lines' pass.
[native-inputs]: Add 'which'.
[home-page]: Use new upstream URL.

Signed-off-by: Kei Kebreau <kkebreau@posteo.net>
This commit is contained in:
ng0 2017-12-24 11:57:18 +00:00 committed by Kei Kebreau
parent 31af847b5d
commit b982fb1c09
No known key found for this signature in database
GPG key ID: E6A5EE3C19467A0D

View file

@ -9,6 +9,7 @@
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;;
;;; This file is part of GNU Guix.
;;;
@ -608,15 +609,16 @@ (define-public autossh
(define-public pdsh
(package
(name "pdsh")
(version "2.29")
(version "2.33")
(source
(origin
(method url-fetch)
(uri (string-append "https://storage.googleapis.com/"
"google-code-archive-downloads/v2/code.google.com/"
"pdsh/pdsh-" version ".tar.bz2"))
(uri (string-append "https://github.com/chaos/pdsh/"
"releases/download/pdsh-" version
"/pdsh-" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1kvzz01fyaxfqmbh53f4ljfsgvxdykh5jyr6fh4f1bw2ywxr1w2p"))))
(base32 "0bwlkl9inj66iwvafg00pi3sk9n673phdi0kcc59y9nn55s0hs3k"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -625,16 +627,36 @@ (define-public pdsh
(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/sh
(lambda _
(substitute* '("tests/runtests.sh"
(substitute* '("tests/t0006-pdcp.sh"
"tests/t0004-module-loading.sh"
"tests/t2001-ssh.sh"
"tests/t1003-slurm.sh"
"tests/t6036-long-output-lines.sh"
"tests/aggregate-results.sh"
"tests/t2000-exec.sh"
"tests/t0002-internal.sh"
"tests/t1002-dshgroup.sh"
"tests/t5000-dshbak.sh"
"tests/t0001-basic.sh"
"tests/t0005-rcmd_type-and-user.sh"
"tests/test-lib.sh"
"tests/t2002-mrsh.sh"
"tests/t0003-wcoll.sh"
"tests/test-modules/pcptest.c")
(("/bin/sh") (which "bash")))
#t))
(add-after 'unpack 'patch-tests
(lambda _
(substitute* "tests/t6036-long-output-lines.sh"
(("which") (which "which")))
#t)))))
(inputs
`(("openssh" ,openssh)
("mit-krb5" ,mit-krb5)
("perl" ,perl)))
(home-page "https://code.google.com/archive/p/pdsh")
(native-inputs
`(("which" ,which)))
(home-page "https://github.com/chaos/pdsh")
(synopsis "Parallel distributed shell")
(description "Pdsh is a an efficient, multithreaded remote shell client
which executes commands on multiple remote hosts in parallel. Pdsh implements