[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/05: gnu: openldap: Provide path to cyrus-sasl for libtool.
From: |
Leo Famulari |
Subject: |
05/05: gnu: openldap: Provide path to cyrus-sasl for libtool. |
Date: |
Sun, 4 Jun 2017 15:16:20 -0400 (EDT) |
lfam pushed a commit to branch core-updates
in repository guix.
commit 4f493cba06b97de756123b3855ea52dcf1ad3555
Author: Leo Famulari <address@hidden>
Date: Sat Jun 3 16:43:07 2017 -0400
gnu: openldap: Provide path to cyrus-sasl for libtool.
* gnu/packages/openldap.scm (openldap)[arguments]: Add 'patch-sasl-path'
phase..
---
gnu/packages/openldap.scm | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/openldap.scm b/gnu/packages/openldap.scm
index 8d27ac9..f3963c6 100644
--- a/gnu/packages/openldap.scm
+++ b/gnu/packages/openldap.scm
@@ -73,7 +73,17 @@
(modify-phases %standard-phases
(add-after 'configure 'provide-libtool
(lambda _ (copy-file (which "libtool") "libtool")
- #t)))))
+ #t))
+ (add-after 'install 'patch-sasl-path
+ ;; Give -L arguments for cyrus-sasl to avoid propagation.
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (sasl (assoc-ref inputs "cyrus-sasl")))
+ (substitute* (map (lambda (f) (string-append out "/" f))
+ '("lib/libldap.la" "lib/libldap_r.la"))
+ (("-lsasl2" lib)
+ (string-append "-L" sasl "/lib " lib)))
+ #t))))))
(synopsis "Implementation of the Lightweight Directory Access Protocol")
(description
"OpenLDAP is a free implementation of the Lightweight Directory Access
Protocol.")