guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 45d45099d7a8b4c428441984073a2329e440032d
Author: Mazin AlHaddad <[email protected]>
AuthorDate: Mon Jan 26 12:57:28 2026 +0000
gnu: imv: Fix absolute filepath replacement.
* gnu/packages/image-viewers.scm (imv): Fix replacement match behavior.
[arguments]<#:phases>: Adapt file name substitution.
Change-Id: I0772628e4f204fd0dd7d5ab0c40972ac38a1fea6
Signed-off-by: Hilton Chain <[email protected]>
Modified-by: Hilton Chain <[email protected]>
Fixes: #5933
Merges: #5932
---
gnu/packages/image-viewers.scm | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 898b7cc307..d838526c67 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -912,15 +912,12 @@ displayed in a terminal.")
(arguments
(list #:phases
#~(modify-phases %standard-phases
- (add-after 'install 'record-absolute-file-names
+ (add-after 'install 'record-absolute-file-name
(lambda _
- ;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
- ;; 'imv-dir' execs 'imv'. Record their absolute file names.
- (let ((bin (string-append #$output "/bin")))
- (substitute* (string-append bin "/imv")
- (("imv-") (string-append bin "/imv-")))
- (substitute* (string-append bin "/imv-dir")
- (("imv") (string-append bin "/imv")))))))))
+ ;; 'imv-dir' execs 'imv'. Record the absolute file name.
+ (substitute* (string-append #$output "/bin/imv-dir")
+ (("exec imv")
+ (string-append "exec " #$output "/bin/imv"))))))))
(native-inputs
(list asciidoc
cmocka
