gnu: openssh: Remove empty /var/empty.

* gnu/packages/ssh.scm (openssh)[arguments]: Delete /var/empty after
‘make install’.  Make the rest less repetitive—no functional changes.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-04 02:06:49 +02:00
parent 3235a54cd7
commit ec7bcdc35a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -256,17 +256,19 @@ (define-public openssh
(("^(tests:.*) t-exec(.*)" all pre post)
(string-append pre post)))))
(replace 'install
(lambda* (#:key outputs (make-flags '()) #:allow-other-keys)
;; Install without host keys and system configuration files.
(apply invoke "make" "install-nosysconf" make-flags)
(install-file "contrib/ssh-copy-id"
(string-append (assoc-ref outputs "out")
"/bin/"))
(chmod (string-append (assoc-ref outputs "out")
"/bin/ssh-copy-id") #o555)
(install-file "contrib/ssh-copy-id.1"
(string-append (assoc-ref outputs "out")
"/share/man/man1/")))))))
(lambda* (#:key outputs (make-flags '()) #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; Install without host keys and system configuration files.
(apply invoke "make" "install-nosysconf" make-flags)
(with-directory-excursion out
(rmdir "var/empty")
(rmdir "var"))
(with-directory-excursion "contrib"
(chmod "ssh-copy-id" #o555)
(install-file "ssh-copy-id"
(string-append out "/bin/"))
(install-file "ssh-copy-id.1"
(string-append out "/share/man/man1/")))))))))
(synopsis "Client and server for the secure shell (ssh) protocol")
(description
"The SSH2 protocol implemented in OpenSSH is standardised by the