me
/
guix
Archived
1
0
Fork 0
Code

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 <leo@famulari.name>
master
ng0 2017-03-04 14:09:32 +00:00 committed by Leo Famulari
parent 34ba7cd4eb
commit d0c16adb19
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/version-control.scm
View File

@ -616,6 +616,17 @@ also walk each side of a merge and test those changes individually.")
(substitute* (find-files "." ".*") (substitute* (find-files "." ".*")
((" perl -") ((" perl -")
(string-append " " 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 (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((output (assoc-ref outputs "out")) (let* ((output (assoc-ref outputs "out"))