[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/02: Revert "gnu: gitolite: Fix shebangs in hooks."

From: Leo Famulari
Subject: 01/02: Revert "gnu: gitolite: Fix shebangs in hooks."
Date: Tue, 14 Mar 2017 18:26:37 -0400 (EDT)

lfam pushed a commit to branch master
in repository guix.

commit 2eab5db300b729b5e5cab95a8c39c3e4e0153b37
Author: Leo Famulari <address@hidden>
Date:   Tue Mar 14 15:49:36 2017 -0400

    Revert "gnu: gitolite: Fix shebangs in hooks."
    This change embedded store references in the shebangs of scripts that
    were meant to be copied out of the store. Those scripts would break when
    the interpreters expected by the shebangs were garbage collected.
    This reverts commit d0c16adb190c7244ee3ef1329cba78a015ae5d10.
 gnu/packages/version-control.scm | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index ccda001..1076c18 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -616,17 +616,6 @@ also walk each side of a merge and test those changes 
                         (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 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"))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]