gnu: torsocks: Patch references to 'getcap' and 'which'.

* gnu/packages/tor.scm (torsocks)[inputs,arguments]: New fields.
This commit is contained in:
Eric Bavier 2017-04-07 08:49:43 -05:00
parent a3c57693e4
commit f3cf25c3c2
No known key found for this signature in database
GPG key ID: 1EBBD204781F962C

View file

@ -4,6 +4,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -28,7 +29,9 @@ (define-module (gnu packages tor)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages libevent)
#:use-module (gnu packages linux)
#:use-module (gnu packages compression)
#:use-module (gnu packages pcre)
#:use-module (gnu packages python)
@ -88,6 +91,19 @@ (define-public torsocks
(base32
"0byr9ga9w79qz4vp0m11sbmspad7fsal9wm67r4znzb7zb7cis19"))))
(build-system gnu-build-system)
(inputs
`(("which" ,which)
("libcap" ,libcap)))
(arguments
`(#:phases (modify-phases %standard-phases
(add-after 'build 'absolutize
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/bin/torsocks"
(("getcap=`.*`")
(string-append "getcap=" (which "getcap")))
(("`which")
(string-append "`" (which "which"))))
#t)))))
(home-page "https://www.torproject.org/")
(synopsis "Use socks-friendly applications with Tor")
(description