2 files changed, 48 insertions, 0 deletions

diff --git a/gnu/packages/patches/opensp-maxpathlen.patch b/gnu/packages/patches/opensp-maxpathlen.patch
new file mode 100644
index 00000000000..9b141472ed9
--- /dev/null
+++ b/gnu/packages/patches/opensp-maxpathlen.patch
@@ -0,0 +1,41 @@
+Adapted from https://sources.debian.org/src/opensp/1.5.2-15.2/debian/patches/diff-1.0.patch
+
+Index: OpenSP-1.5.2/sx/XmlOutputEventHandler.cxx
+===================================================================
+--- OpenSP-1.5.2.orig/sx/XmlOutputEventHandler.cxx
++++ OpenSP-1.5.2/sx/XmlOutputEventHandler.cxx
+@@ -1199,12 +1199,22 @@ void XmlOutputEventHandler::inputOpened(
+           // Check to make sure we haven't passed outside of the
+           // output directory
+          char *dirs = strdup (filePath);
++#ifdef MAXPATHLEN
+           char realDirs[MAXPATHLEN];
+           char realOutputDir[MAXPATHLEN];
++#else
++          char *realDirs;
++          char *realOutputDir;
++#endif
+           char *outputDir = strdup(outputDir_);
+ 
++#ifdef MAXPATHLEN
+           realpath((const char *)dirname(dirs), realDirs);
+           realpath((const char *)dirname(outputDir), realOutputDir);
++#else
++          realDirs = realpath((const char *)dirname(dirs), NULL);
++          realOutputDir = realpath((const char *)dirname(outputDir), NULL);
++#endif
+ 
+           if (strncmp(realDirs, realOutputDir, strlen (realOutputDir)) != 0) {
+             app_->message(XmlOutputMessages::pathOutsideOutputDirectory,
+@@ -1214,6 +1224,11 @@ void XmlOutputEventHandler::inputOpened(
+             }
+           }
+ 
++#ifndef MAXPATHLEN
++         free(realDirs);
++         free(realOutputDir);
++#endif
++
+          // Make the necessary directories
+          maybeCreateDirectories(dirname(dirs));
+ 
diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 38606df7a1f..1660feb8538 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -1845,6 +1845,13 @@ modular implementation of XML-RPC for C and C++.")
       #:make-flags #~(list "TESTS_THAT_FAIL=")
       #:phases
       #~(modify-phases %standard-phases
+          #$@(if (target-hurd?)
+                 #~((add-after 'unpack 'patch-hurd
+                      (lambda _
+                        (let ((patch #$(local-file
+                                        (search-patch "opensp-maxpathlen.patch"))))
+                          (invoke "patch" "--force" "-p1" "-i" patch)))))
+                 #~())
           (add-after 'unpack 'delete-configure
             ;; The configure script in the release was made with an older
             ;; Autoconf and lacks support for the `--docdir' option.