gnu: e2fsprogs: Fix compilation for GNU/Hurd.
Fixes a regression introduced in
ce78f9cb66.
* gnu/packages/linux.scm (e2fsprogs)[arguments]: When ‘system-hurd?’,
add ‘set-PATH_MAX’ phase.
Change-Id: Idc8c2a24d2518b44e42102db48a8ab484b855f47
			
			
This commit is contained in:
		
							parent
							
								
									7daf932892
								
							
						
					
					
						commit
						865bf63eb3
					
				
					 1 changed files with 7 additions and 2 deletions
				
			
		|  | @ -1,5 +1,5 @@ | ||||||
| ;;; GNU Guix --- Functional package management for GNU | ;;; 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 © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr> | ||||||
| ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org> | ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org> | ||||||
| ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org> | ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org> | ||||||
|  | @ -2710,7 +2710,12 @@ module.") | ||||||
|                                (chmod file #o666)) |                                (chmod file #o666)) | ||||||
|                              archives))))) |                              archives))))) | ||||||
|            ,@(if (system-hurd?) |            ,@(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 _ |                      (lambda _ | ||||||
|                        (with-directory-excursion "tests" |                        (with-directory-excursion "tests" | ||||||
|                          (for-each |                          (for-each | ||||||
|  |  | ||||||
		Reference in a new issue