51/66: gnu: le-certs: Use invoke.

[Mark H. Weaver]

mhw pushed a commit to branch core-updates
in repository guix.

commit 4530e854f1ca25492a7dda2d0d438d222ff53eb4
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 23 03:27:24 2018 -0400

    gnu: le-certs: Use invoke.
    
    * gnu/packages/certs.scm (le-certs)[arguments]: Use invoke in the builder.
---
 gnu/packages/certs.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/certs.scm b/gnu/packages/certs.scm
index 03549af..bb8facb 100644
--- a/gnu/packages/certs.scm
+++ b/gnu/packages/certs.scm
@@ -170,10 +170,9 @@ taken from the NSS package and thus ultimately from the 
Mozilla project.")
            ;; Create hash symlinks suitable for OpenSSL ('SSL_CERT_DIR' and
            ;; similar.)
            (chdir (string-append %output "/etc/ssl/certs"))
-           (unless (zero? (system* (string-append perl "/bin/perl")
-                                   (string-append openssl "/bin/c_rehash")
-                                   "."))
-             (error "'c_rehash' failed" openssl))))))
+           (invoke (string-append perl "/bin/perl")
+                   (string-append openssl "/bin/c_rehash")
+                   ".")))))
     (native-inputs
      `(("openssl" ,openssl)
        ("perl" ,perl)))                           ;for 'c_rehash'