From 865bf63eb3025b978a74805ef0ea8325c97d88e9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 9 Jun 2024 17:07:37 +0200
Subject: [PATCH] gnu: e2fsprogs: Fix compilation for GNU/Hurd.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes a regression introduced in
ce78f9cb668971954add5473c8549ebb00424f66.

* gnu/packages/linux.scm (e2fsprogs)[arguments]: When ‘system-hurd?’,
add ‘set-PATH_MAX’ phase.

Change-Id: Idc8c2a24d2518b44e42102db48a8ab484b855f47
---
 gnu/packages/linux.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 7b639c67ed..ed430f4052 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012-2021, 2021-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012-2021, 2021-2024 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
@@ -2710,7 +2710,12 @@ module.")
                                (chmod file #o666))
                              archives)))))
            ,@(if (system-hurd?)
-                 '((add-after 'unpack 'skip-tests
+                 '((add-after 'unpack 'set-PATH_MAX
+                     (lambda _
+                       ;; Shamelessly introduce an arbitrary limit.
+                       (substitute* "misc/tune2fs.c"
+                         (("PATH_MAX") "4096"))))
+                   (add-after 'unpack 'skip-tests
                      (lambda _
                        (with-directory-excursion "tests"
                          (for-each