05/05: gnu: openldap: Provide path to cyrus-sasl for libtool.

[Leo Famulari]

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.")