guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: gnu: netpbm: Install an unversioned library link.


From: guix-commits
Subject: branch master updated: gnu: netpbm: Install an unversioned library link.
Date: Wed, 01 Apr 2020 13:46:14 -0400

This is an automated email from the git hooks/post-receive script.

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 204d55c  gnu: netpbm: Install an unversioned library link.
204d55c is described below

commit 204d55c9800b146ef8e8b249cb5be0ab8a028998
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Wed Apr 1 19:44:05 2020 +0200

    gnu: netpbm: Install an unversioned library link.
    
    * gnu/packages/netpbm.scm (netpbm)[arguments]: Symlink libnetpbm.so.*.*
    to libnetpbm.so.
    
    Reported by R Veera Kumar <address@hidden>.
---
 gnu/packages/netpbm.scm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm
index c88b5a9..126f29f 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -114,7 +114,10 @@
        ("pkg-config" ,pkg-config)
        ("python" ,python-wrapper)))
    (arguments
-    `(#:phases
+    `(#:modules ((guix build gnu-build-system)
+                 (guix build utils)
+                 (ice-9 match))
+      #:phases
       (modify-phases %standard-phases
        (replace 'configure
          (lambda* (#:key inputs outputs #:allow-other-keys)
@@ -174,8 +177,15 @@
              (with-directory-excursion out
                (for-each delete-file-recursively
                          '("config_template" "pkginfo" "README" "VERSION"
-                           "link/" "misc/")))
-             #t))))))
+                           "link/" "misc/"))
+               ;; Install the required ‘libnetpbm.so’ link.
+               ;; See <https://issues.guix.gnu.org/issue/40376>.
+               (with-directory-excursion "lib"
+                 (symlink
+                  (match (find-files "." "^libnetpbm\\.so\\.[^.]*\\.[^.]*$")
+                         ((head _ ...) head))
+                  "libnetpbm.so"))
+               #t)))))))
    (synopsis "Toolkit for manipulation of images")
    (description
     "Netpbm is a toolkit for the manipulation of graphic images, including



reply via email to

[Prev in Thread] Current Thread [Next in Thread]