diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 9ed46f877b..25c4a7016d 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -5042,17 +5042,34 @@ (define-public xfsprogs (define-public genext2fs (package (name "genext2fs") - (version "1.4.1") + (version "1.4.1-4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/jeremie-koenig/genext2fs.git") - (commit (string-append "genext2fs-" version)))) + ;; 1.4.1-3 had a VCS tag but 1.4.1-4 doesn't. + (commit "9ee43894634998b0b2b309d636f25c64314c9421"))) (file-name (git-file-name name version)) (sha256 - (base32 - "1r0n74pyypv63qfqqpvx75dwijcsvcrvqrlv8sldbhv0nwr1gk53")))) + (base32 "0ib5icn78ciz00zhc1bgdlrwaxvsdz7wnplwblng0jirwi9ml7sq")))) (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'apply-debian-patches + ;; Debian changes (the revision after ‘-’ in VERSION) are + ;; maintained as separate patches. Apply those relevant to us. + (lambda _ + (for-each + (lambda (file-name) + (invoke "patch" "-p1" "-i" + (string-append "debian/patches/" file-name))) + (list "blocksize+creator.diff" ; add -B/-o options + "byteswap_fix.diff")) + #t))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake))) (home-page "https://github.com/jeremie-koenig/genext2fs") (synopsis "Generate ext2 filesystem as a normal user") (description "This package provides a program to general an ext2