From ea75ca18066c0332b641c9b28b5b2f71db0d7eea Mon Sep 17 00:00:00 2001 From: Liliana Marie Prikler Date: Sat, 25 Feb 2023 07:46:37 +0100 Subject: gnu: tracker: Don't wrap binaries in libexec/tracker3 directory. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit These binaries are mere symlinks to the already wrapped tracker command. They are used in a command lookup via argv[0], which wrapping them breaks. * gnu/packages/gnome.scm (tracker)[#:phases]: Add ‘unwrap-libexec’. --- gnu/packages/gnome.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'gnu/packages/gnome.scm') diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index a13fbb2436..c057a66070 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -9710,7 +9710,18 @@ easy, safe, and automatic.") ;; Some tests expect to write to $HOME. (setenv "HOME" "/tmp") (apply invoke "dbus-run-session" "--" "meson" "test" - "--print-errorlogs" test-options))))))) + "--print-errorlogs" test-options)))) + (add-after 'glib-or-gtk-wrap 'unwrap-libexec + (lambda* (#:key outputs #:allow-other-keys) + (with-directory-excursion (string-append (assoc-ref outputs "out") + "/libexec/tracker3") + (for-each + (lambda (f) + (let ((real (string-append "." (basename f) "-real"))) + (when (file-exists? real) + (delete-file f) + (rename-file real f)))) + (find-files ".")))))))) (native-inputs (list gettext-minimal `(,glib "bin") -- cgit 1.4.1