01/05: gnu: perl-dbd-mysql: Update to 4.047.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 702a87f2d14809ef241cd2dbb947c70ec59b9f08
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Sep 11 18:31:55 2018 +0200

    gnu: perl-dbd-mysql: Update to 4.047.
    
    * gnu/packages/databases.scm (perl-dbd-mysql): Update to 4.047.
    [arguments]: Add 'skip-library-detection' phase.
---
 gnu/packages/databases.scm | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index ecc14c2..9db892a 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1458,7 +1458,7 @@ columns, primary keys, unique constraints and 
relationships.")
 (define-public perl-dbd-mysql
   (package
     (name "perl-dbd-mysql")
-    (version "4.046")
+    (version "4.047")
     (source
      (origin
        (method url-fetch)
@@ -1466,10 +1466,24 @@ columns, primary keys, unique constraints and 
relationships.")
                            "DBD-mysql-" version ".tar.gz"))
        (sha256
         (base32
-         "1xziv9w87cl3fbl1mqkdrx28mdqly3gs6gs1ynbmpl2rr4p6arb1"))))
+         "0idizgr0hr7sj92fbdlb3gv6cva15jkpaq28wrdw4j4p7awx2mls"))))
     (build-system perl-build-system)
-    ;; Tests require running MySQL server
-    (arguments `(#:tests? #f))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'skip-library-detection
+           ;; Avoid depencies on perl-devel-checklib, openssl, and zlib.  They
+           ;; are really only needed for the test suite; their absence does not
+           ;; affect the build or the end result.
+           (lambda _
+             (substitute* "Makefile.PL"
+               (("use Devel::CheckLib;" match)
+                (string-append "# " match))
+               (("assert_lib")
+                "print"))
+             #t)))
+       ;; Tests require running MySQL server.
+       #:tests? #f))
     (propagated-inputs
      `(("perl-dbi" ,perl-dbi)
        ("mysql" ,mysql)))