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