diff options
| author | ng0 <contact.ng0@cryptolab.net> | 2017-03-04 14:09:32 +0000 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2017-03-04 17:51:04 -0500 |
| commit | d0c16adb190c7244ee3ef1329cba78a015ae5d10 (patch) | |
| tree | cd25262485b5b1c22552663028892d069469300c | |
| parent | 34ba7cd4ebbaf0a597a0254cd7d675be23e28ccc (diff) | |
| download | guix-d0c16adb190c7244ee3ef1329cba78a015ae5d10.tar.gz | |
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>
| -rw-r--r-- | gnu/packages/version-control.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 1076c18905..ccda00173d 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")) |