[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: gitolite: Fix shebangs in hooks.
From: |
Leo Famulari |
Subject: |
02/02: gnu: gitolite: Fix shebangs in hooks. |
Date: |
Sat, 4 Mar 2017 17:51:59 -0500 (EST) |
lfam pushed a commit to branch master
in repository guix.
commit d0c16adb190c7244ee3ef1329cba78a015ae5d10
Author: ng0 <address@hidden>
Date: Sat Mar 4 14:09:32 2017 +0000
gnu: gitolite: Fix shebangs in hooks.
Fixes <https://bugs.gnu.org/25957>.
* gnu/packages/version-control.scm (gitolite)[arguments]: Add
'fix-hooks-shebangs'
phase to fix references to '/usr/bin/perl'.
Signed-off-by: Leo Famulari <address@hidden>
---
gnu/packages/version-control.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 1076c18..ccda001 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -616,6 +616,17 @@ also walk each side of a merge and test those changes
individually.")
(substitute* (find-files "." ".*")
((" perl -")
(string-append " " perl " -"))))))
+ (add-before 'install 'fix-hooks-shebangs
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((perl (string-append (assoc-ref inputs "perl")
+ "/bin/perl")))
+ ;; The files in 'lib/Gitolite/Hooks' keep references to
+ ;; '/usr/bin/perl', without this fix it is impossible
to
+ ;; to run gitolite in production.
+ (substitute* (find-files "src/lib/Gitolite/Hooks" ".*")
+ (("/usr/bin/perl")
+ perl))
+ #t)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((output (assoc-ref outputs "out"))