[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
16/30: gnu: perl: Use invoke instead of system*.
From: |
Mark H. Weaver |
Subject: |
16/30: gnu: perl: Use invoke instead of system*. |
Date: |
Fri, 16 Mar 2018 05:03:37 -0400 (EDT) |
mhw pushed a commit to branch core-updates
in repository guix.
commit 607f050bec1839499a674e0522ce5f60f73076f7
Author: Mark H Weaver <address@hidden>
Date: Fri Mar 16 01:57:06 2018 -0400
gnu: perl: Use invoke instead of system*.
* gnu/packages/perl.scm (perl)[arguments]: Use invoke. Return a boolean
from
all phase procedures.
---
gnu/packages/perl.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index cf9f21d..965bead 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4,7 +4,7 @@
;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <address@hidden>
;;; Copyright © 2015, 2016, 2017 Eric Bavier <address@hidden>
;;; Copyright © 2015 Eric Dvorsak <address@hidden>
-;;; Copyright © 2016 Mark H Weaver <address@hidden>
+;;; Copyright © 2016, 2018 Mark H Weaver <address@hidden>
;;; Copyright © 2016 Jochem Raat <address@hidden>
;;; Copyright © 2016, 2017 Efraim Flashner <address@hidden>
;;; Copyright © 2016 ng0 <address@hidden>
@@ -107,7 +107,7 @@
(replace 'configure
(lambda* (#:key configure-flags #:allow-other-keys)
(format #t "Perl configure flags: ~s~%" configure-flags)
- (zero? (apply system* "./Configure" configure-flags))))
+ (apply invoke "./Configure" configure-flags)))
(add-before
'strip 'make-shared-objects-writable
(lambda* (#:key outputs #:allow-other-keys)
@@ -117,7 +117,8 @@
(lib (string-append out "/lib")))
(for-each (lambda (dso)
(chmod dso #o755))
- (find-files lib "\\.so$")))))
+ (find-files lib "\\.so$"))
+ #t)))
(add-after 'install 'remove-extra-references
(lambda* (#:key inputs outputs #:allow-other-keys)
- 22/30: gnu: openssl: Use invoke instead of system*., (continued)
- 22/30: gnu: openssl: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 20/30: gnu: zip: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 11/30: download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 15/30: gnu: glibc/hurd: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 29/30: build: emacs-utils: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 27/30: svn-download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 13/30: gnu: glibc-utf8-locales: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 28/30: hg-download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 24/30: gnu: tzdata: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 01/30: packages: patch-and-repack: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 16/30: gnu: perl: Use invoke instead of system*.,
Mark H. Weaver <=
- 25/30: gnu: python-six: Use invoke instead of system*., Mark H. Weaver, 2018/03/16