179/237: gnu: perl-tk: Fix build with gcc-14.

[guix-commits]

janneke pushed a commit to branch core-packages-team
in repository guix.

commit e8acb82a9112e3ca6d827f7a9cf62710efac404a
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Fri Jan 3 18:45:22 2025 +0100

    gnu: perl-tk: Fix build with gcc-14.
    
    * gnu/packages/tcl.scm (perl-tk)[inputs]: Remove labels.
    [arguments]: Use G-Expressions.  Add CC to #:make-maker-flags to relax
    gcc-14's strictness.
    
    Change-Id: Id4d65d2e60bbb1e1e78a220b9e6c72277d24e799
---
 gnu/packages/tcl.scm | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 0d9c7909b6..3e4113d2ed 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -278,15 +278,19 @@ interfaces (GUIs) in the Tcl language.")
                "0pha40m97fzafjnq8vwkbi5sml6xv8jki6qi60rxrzmxlrqp5aij"))))
     (build-system perl-build-system)
     (native-inputs (list pkg-config))
-    (inputs `(("libx11" ,libx11)
-              ("libpng" ,libpng)
-              ("libjpeg" ,libjpeg-turbo)))
+    (inputs (list libx11 libpng libjpeg-turbo))
     (arguments
-     `(#:make-maker-flags `(,(string-append
-                              "X11=" (assoc-ref %build-inputs "libx11")))
-
-       ;; Fails to build in parallel: <http://bugs.gnu.org/18262>.
-       #:parallel-build? #f))
+     (list
+      #:make-maker-flags
+      #~(list (string-append "X11=" #$libx11)
+              ;; Using CFLAGS partly works but also creates a broken Makefile
+              #$(string-append "CC=gcc"
+                               " -Wno-error=implicit-function-declaration"
+                               " -Wno-error=implicit-int"
+                               " -Wno-error=incompatible-pointer-types"
+                               " -Wno-error=int-to-pointer-cast"))
+      ;; Fails to build in parallel: <http://bugs.gnu.org/18262>.
+      #:parallel-build? #f))
     (synopsis "Graphical user interface toolkit for Perl")
     (description
      "Tk is a Graphical User Interface ToolKit.")