[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: gnu: miniupnpc: Use the correct ‘upnpc’ in ‘external-ip’.
|
From: |
Tobias Geerinckx-Rice |
|
Subject: |
04/05: gnu: miniupnpc: Use the correct ‘upnpc’ in ‘external-ip’. |
|
Date: |
Fri, 25 Nov 2016 01:48:30 +0000 (UTC) |
nckx pushed a commit to branch master
in repository guix.
commit 5af82630feb1c6b65edc3dd14bf05d025b77b209
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Thu Nov 24 18:48:15 2016 +0100
gnu: miniupnpc: Use the correct ‘upnpc’ in ‘external-ip’.
* gnu/packages/upnp.scm (miniupnpc)[arguments]: Add ‘qualify-paths’ phase.
---
gnu/packages/upnp.scm | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/upnp.scm b/gnu/packages/upnp.scm
index 35bacc7..ffb671b 100644
--- a/gnu/packages/upnp.scm
+++ b/gnu/packages/upnp.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Sree Harsha Totakura <address@hidden>
+;;; Copyright © 2016 Tobias Geerinckx-Rice <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -55,7 +56,12 @@
(assoc-ref %outputs "out") "/lib"))
#: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/";)
(synopsis "Library implementing the client side UPnP protocol")
(description