diff options
| author | Andreas Enge <andreas@enge.fr> | 2013-10-06 10:01:02 +0200 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2013-10-06 10:01:02 +0200 |
| commit | 43824910f2f5715ace25c868aca1b6d530f3cdff (patch) | |
| tree | 42ecdb6869d675169766a51b3766862f0bbd1c88 /gnu/packages/cdrom.scm | |
| parent | a5a7d374a14edb47e7b33eb844a6f4ca8cce39fa (diff) | |
| download | guix-43824910f2f5715ace25c868aca1b6d530f3cdff.tar guix-43824910f2f5715ace25c868aca1b6d530f3cdff.tar.gz | |
gnu: cdparanoia: Fix links of internal libraries into binary.
* gnu/packages/cdrom.scm (cdparanoia): Use patchelf to link internal libraries
into binary.
Diffstat (limited to 'gnu/packages/cdrom.scm')
| -rw-r--r-- | gnu/packages/cdrom.scm | 28 |
1 files changed, 24 insertions, 4 deletions
diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm index e207ae65d6..08c92fb014 100644 --- a/gnu/packages/cdrom.scm +++ b/gnu/packages/cdrom.scm @@ -27,10 +27,11 @@ #:use-module (gnu packages compression) #:use-module ((gnu packages gettext) #:renamer (symbol-prefix-proc 'gnu:)) #:use-module (gnu packages gtk) - #:use-module (gnu packages readline) - #:use-module (gnu packages ncurses) #:use-module (gnu packages help2man) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages patchelf) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages readline) #:use-module (gnu packages which)) (define-public libcddb @@ -131,10 +132,29 @@ filesystems.") "1pv4zrajm46za0f6lv162iqffih57a8ly4pc69f7y0gfyigb8p80")))) (build-system gnu-build-system) (inputs - `(("patch/fpic" ,(search-patch "cdparanoia-fpic.patch")))) + `(("patch/fpic" ,(search-patch "cdparanoia-fpic.patch")) + ("patchelf" ,patchelf))) (arguments `(#:tests? #f ; there is no check target - #:patches (list (assoc-ref %build-inputs "patch/fpic")))) + #:patches (list (assoc-ref %build-inputs "patch/fpic")) + #:modules ((guix build gnu-build-system) + (guix build utils) + (guix build rpath) + (srfi srfi-26)) + #:imported-modules ((guix build gnu-build-system) + (guix build utils) + (guix build rpath)) + #:phases + (alist-cons-after + 'strip 'add-lib-to-runpath + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (lib (string-append out "/lib"))) + ;; Add LIB to the RUNPATH of all the executables. + (with-directory-excursion out + (for-each (cut augment-rpath <> lib) + (find-files "bin" ".*"))))) + %standard-phases))) (home-page "http://www.xiph.org/paranoia/") (synopsis "audio CD reading utility which includes extra data verification features") (description "Cdparanoia retrieves audio tracks from CDDA capable CDROM |