diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-01-16 14:36:05 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-01-16 14:36:09 +0100 |
| commit | 889b4af7d89a8ce0f05e210b6bd2212f787659a4 (patch) | |
| tree | 5115d22a3dec05118289d606ecdeade592209b15 | |
| parent | 10db64e1b0508100395ff67f19e394f9b45912fa (diff) | |
| download | guix-889b4af7d89a8ce0f05e210b6bd2212f787659a4.tar guix-889b4af7d89a8ce0f05e210b6bd2212f787659a4.tar.gz | |
gnu: mc: Update to 4.8.20.
* gnu/packages/mc.scm (mc): Update to 4.8.20.
[arguments]: Rename ‘fix-absolutism’ to (hopefully) more accurate
‘patch-FHS-file-names’. Patch more. Fix new VFS test.
| -rw-r--r-- | gnu/packages/mc.scm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/gnu/packages/mc.scm b/gnu/packages/mc.scm index 73e0503935..2e13c3201f 100644 --- a/gnu/packages/mc.scm +++ b/gnu/packages/mc.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 ng0 <ng0@infotropique.org> +;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -36,7 +37,7 @@ (define-public mc (package (name "mc") - (version "4.8.16") + (version "4.8.20") (source (origin (method url-fetch) @@ -44,7 +45,7 @@ version ".tar.xz")) (sha256 (base32 - "083h5gwc0nny9b557way5dsmj71g2bzkiai4bn30y5nkjwqbxg5v")))) + "072h7n9b3j79fqn48xaw0xhlcjavpsmfpz6nyh20lhmfz3sffzh1")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("perl" ,perl))) @@ -59,14 +60,24 @@ '("--with-screen=ncurses" "--enable-aspell") #:phases (modify-phases %standard-phases - (add-after 'patch-source-shebangs 'fix-absolutism + (add-after 'patch-source-shebangs 'patch-FHS-file-names (lambda _ - ;; Modify files that contain absolute file names. + ;; Patch files to refer to executables in the store. (substitute* "misc/mcedit.menu.in" (("#! /bin/sh") (string-append "#!" (which "sh"))) (("/bin/bash") (which "bash"))) (substitute* "misc/ext.d/misc.sh.in" (("/bin/cat") "cat")) + (substitute* "tests/src/vfs/extfs/helpers-list/Makefile.in" + (("/bin/sh") (which "sh"))) + #t)) + (add-before 'check 'fix-tests + (lambda _ + ;; Don't expect a UID or GID of ‘0’ in the build environment. + (with-directory-excursion "tests/src/vfs/extfs/helpers-list/data" + (substitute* (list "rpm.custom.output" + "rpm.glib.output") + ((" 0 0") "<<uid>> <<gid>>"))) #t))))) (home-page "https://www.midnight-commander.org") (synopsis "Graphical file manager") |