aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2019-07-02 11:42:56 +0300
committerEfraim Flashner <efraim@flashner.co.il>2019-07-02 11:43:04 +0300
commit4bac5bba51383f5c01cd5a9a5efe7b9198be86c0 (patch)
tree603c597c598b84ebf9f947c6a108b7ac3658ba90
parent71a29277055708b509a477d97c8d5f9815f1b939 (diff)
downloadguix-4bac5bba51383f5c01cd5a9a5efe7b9198be86c0.tar
guix-4bac5bba51383f5c01cd5a9a5efe7b9198be86c0.tar.gz
gnu: Wrap program with libraries.
* gnu/packages/package-management.scm (stow)[arguments]: Add custom 'wrap-stow phase to wrap stow with necessary inputs. [propagated-inputs]: Move perl-clone, perl-clone-choose, perl-hash-merge to... [inputs]: ... here.
-rw-r--r--gnu/packages/package-management.scm21
1 files changed, 16 insertions, 5 deletions
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index ca360b3884..d0388e5d43 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -475,17 +475,28 @@ sub-directory.")
(base32
"0h8qr2rxsrkg6d8jxjk68r23jgn1dxdxyp4bnzzinpa8sjhfl905"))))
(build-system gnu-build-system)
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'wrap-stow
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (wrap-program (string-append out "/bin/stow")
+ `("PERL5LIB" ":" prefix
+ ,(map (lambda (i) (string-append (assoc-ref inputs i)
+ "/lib/perl5/site_perl"))
+ '("perl-clone-choose" "perl-clone" "perl-hash-merge"))))
+ #t))))))
(inputs
- `(("perl" ,perl)))
+ `(("perl" ,perl)
+ ("perl-clone" ,perl-clone)
+ ("perl-clone-choose" ,perl-clone-choose)
+ ("perl-hash-merge" ,perl-hash-merge)))
(native-inputs
`(("perl-test-simple" ,perl-test-simple)
("perl-test-output" ,perl-test-output)
("perl-capture-tiny" ,perl-capture-tiny)
("perl-io-stringy" ,perl-io-stringy)))
- (propagated-inputs
- `(("perl-clone-choose" ,perl-clone-choose)
- ("perl-clone" ,perl-clone)
- ("perl-hash-merge" ,perl-hash-merge)))
(home-page "https://www.gnu.org/software/stow/")
(synopsis "Managing installed software packages")
(description