ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: perl: Use invoke instead of system*.

Browse source 
* gnu/packages/perl.scm (perl)[arguments]: Use invoke.  Return a boolean from
all phase procedures.
This commit is contained in:
Mark H Weaver 2018-03-16 01:57:06 -04:00
parent 4e50f1f2d3
commit 607f050bec
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/perl.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net> ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 ng0 <ng0@infotropique.org> ;;; Copyright © 2016 ng0 <ng0@infotropique.org>
@ -107,7 +107,7 @@ (define-public perl
(replace 'configure (replace 'configure
(lambda* (#:key configure-flags #:allow-other-keys) (lambda* (#:key configure-flags #:allow-other-keys)
(format #t "Perl configure flags: ~s~%" configure-flags) (format #t "Perl configure flags: ~s~%" configure-flags)
(zero? (apply system* "./Configure" configure-flags)))) (apply invoke "./Configure" configure-flags)))
(add-before (add-before
'strip 'make-shared-objects-writable 'strip 'make-shared-objects-writable
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -117,7 +117,8 @@ (define-public perl
(lib (string-append out "/lib"))) (lib (string-append out "/lib")))
(for-each (lambda (dso) (for-each (lambda (dso)
(chmod dso #o755)) (chmod dso #o755))
(find-files lib "\\.so$"))))) (find-files lib "\\.so$"))
#t)))
(add-after 'install 'remove-extra-references (add-after 'install 'remove-extra-references
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)