futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: gzip: Update to 1.12.

Browse Source 
* gnu/packages/compression.scm (gzip): Update to 1.12.
[arguments]: Add configure-flag to enable building zless without less
binary present. Remove unneeded 'patch-for-glibc-2.28 phase. Adjust
custom 'use-absolute-name-of-gzip phase to upstream changes.
This commit is contained in:
Efraim Flashner 2022-04-29 02:45:06 +03:00
parent 43d18521e8
commit 2d8e56ac16
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 4 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/compression.scm
View File

@ -233,39 +233,26 @@ adding and extracting files to/from a tar archive.")
(define-public gzip (define-public gzip
(package (package
(name "gzip") (name "gzip")
(version "1.11") (version "1.12")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/gzip/gzip-" (uri (string-append "mirror://gnu/gzip/gzip-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"01vrly90rvc98af6rcmrb3gwv1l6pylasvsdka23dffwizb9b6lv")))) "0mhrx5wk9gazmxdw7vmbpg036yzqqhsww6h12kwf2dzn37jh6pnf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis "General file (de)compression (using lzw)") (synopsis "General file (de)compression (using lzw)")
(arguments (arguments
;; FIXME: The test suite wants `less', and optionally Perl. ;; FIXME: The test suite wants `less', and optionally Perl.
'(#:tests? #f '(#:tests? #f
#:configure-flags '("ac_cv_prog_LESS=\"less\"")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-for-glibc-2.28
(lambda _
;; Adjust the bundled gnulib to work with glibc 2.28. See e.g.
;; "m4-gnulib-libio.patch". This is a phase rather than patch
;; or snippet to work around <https://bugs.gnu.org/32347>.
(substitute* (find-files "lib" "\\.c$")
(("#if defined _IO_ftrylockfile")
"#if defined _IO_EOF_SEEN"))
(substitute* "lib/stdio-impl.h"
(("^/\\* BSD stdio derived implementations")
(string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
"# define _IO_IN_BACKUP 0x100\n"
"#endif\n\n"
"/* BSD stdio derived implementations")))))
(add-after 'unpack 'use-absolute-name-of-gzip (add-after 'unpack 'use-absolute-name-of-gzip
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(substitute* "gunzip.in" (substitute* "gunzip.in"
(("exec gzip") (("exec 'gzip'")
(string-append "exec " (assoc-ref outputs "out") (string-append "exec " (assoc-ref outputs "out")
"/bin/gzip")))))))) "/bin/gzip"))))))))
(description (description