From 2dc9927258bc9f31cb4225eedf36f8f011982608 Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Sat, 19 Jul 2025 12:27:38 +0200
Subject: [PATCH] gnu: perl-dbd-mysql: Fix build with gcc@14.

* gnu/packages/databases.scm (perl-dbd-mysql)[arguments]<#:phases>:
{'add-cflags}: New phase.
{'skip-library-detection}: Drop #t.

Change-Id: I07e98481d9b9dc8bdc4e3bdf24c9c7b7d63d2bcf
---
 gnu/packages/databases.scm | 37 ++++++++++++++++++++++---------------
 1 file changed, 22 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 2e2fe25221e..51b2224ad90 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2630,21 +2630,28 @@ automatically set update and create date and time based fields in a table.")
         (base32 "0y4djb048i09dk19av7mzfb3khr72vw11p3ayw2p82jsy4gm8j2g"))))
     (build-system perl-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'skip-library-detection
-           ;; Avoid dependencies 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))
+      (list
+        ;; Tests require running MySQL server.
+        #:tests? #f
+        #:phases
+        #~(modify-phases %standard-phases
+          (add-after 'configure 'add-cflags
+            (lambda _
+              (substitute* "Makefile"
+                (("OPTIMIZE = -O2")
+                 (string-append "OPTIMIZE = -O2 "
+                                "-Wno-error=incompatible-pointer-types "
+                                "-Wno-error=implicit-function-declaration")))))
+          (add-before 'configure 'skip-library-detection
+            ;; Avoid dependencies 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")))))))
     (propagated-inputs
      `(("perl-dbi" ,perl-dbi)
        ("mysql" ,mariadb "lib")