From ca32d92c3207b308b0f08e729b277192b9c225d8 Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Sat, 4 Oct 2025 11:04:23 +0200
Subject: [PATCH] gnu: gnucobol: Fix build with libxml2 >= 2.14.

* gnu/packages/cobol.scm (gnucobol)[arguments]: Add 'fix-build' phase.

Change-Id: I94d17e734b46e5c18fed33636e399afe48feb66e
---
 gnu/packages/cobol.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/packages/cobol.scm b/gnu/packages/cobol.scm
index 9e9be5122a9b2aa597c07e0b7e2d28312d5892f9..3b4dd99aed8c7c28c02e66b3db7e5f89dd6a452e 100644
--- a/gnu/packages/cobol.scm
+++ b/gnu/packages/cobol.scm
@@ -65,6 +65,12 @@
                               "/include/json-c")))
        #:phases
        #~(modify-phases %standard-phases
+           (add-after 'unpack 'fix-build
+             (lambda _
+               ;; Fix build with libxml2 >= 2.14.
+               (substitute* "libcob/common.c"
+                 (("#include <libxml/xmlwriter.h>" all)
+                  (string-append all "\n#include <libxml/parser.h>")))))
            (add-after 'unpack 'place-cobol85-test-suite
              (lambda* (#:key inputs #:allow-other-keys)
                (let ((newcob (assoc-ref inputs "newcob")))