gnu: miniupnpc: Use the correct ‘upnpc’ in ‘external-ip’.
* gnu/packages/upnp.scm (miniupnpc)[arguments]: Add ‘qualify-paths’ phase.
This commit is contained in:
parent
cdbdaf7b6b
commit
5af82630fe
|
@ -1,5 +1,6 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
|
;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
|
||||||
|
;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -55,7 +56,12 @@
|
||||||
(assoc-ref %outputs "out") "/lib"))
|
(assoc-ref %outputs "out") "/lib"))
|
||||||
#:phases
|
#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
(delete 'configure))))
|
(delete 'configure)
|
||||||
|
(add-before 'install 'qualify-paths
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(substitute* "external-ip.sh"
|
||||||
|
(("upnpc")
|
||||||
|
(string-append (assoc-ref outputs "out") "/bin/upnpc"))))))))
|
||||||
(home-page "http://miniupnp.free.fr/")
|
(home-page "http://miniupnp.free.fr/")
|
||||||
(synopsis "Library implementing the client side UPnP protocol")
|
(synopsis "Library implementing the client side UPnP protocol")
|
||||||
(description
|
(description
|
||||||
|
|
Loading…
Reference in New Issue