From b411517a1939612517378987ff2675b809b7074c Mon Sep 17 00:00:00 2001 From: Thomas Danckaert Date: Tue, 27 Sep 2016 15:38:51 +0200 Subject: [PATCH] gnu: git: Add input perl-term-readkey for 'git-svn'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/version-control.scm (git)[inputs]: Add perl-term-readkeys. [arguments]: Add perl-term-readkeys to the PERL5LIB of `git-svn'. Signed-off-by: 宋文武 --- gnu/packages/version-control.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 29559bd9b3..ef65a03451 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -143,6 +143,7 @@ (define-public git ;; For 'git-svn'. ("subversion" ,subversion) + ("perl-term-readkey" ,perl-term-readkey) ;; For 'git-send-email' ("perl-authen-sasl" ,perl-authen-sasl) @@ -227,14 +228,15 @@ (define-public git (list gitk git-gui git-cit git-se git-svn) (list gitk* git-gui* git-cit* git-se* git-svn*)) - ;; Tell 'git-svn' where Subversion is. + ;; Tell 'git-svn' where Subversion and perl-term-readkey are. (wrap-program git-svn* `("PATH" ":" prefix (,(string-append (assoc-ref inputs "subversion") "/bin"))) `("PERL5LIB" ":" prefix - (,(string-append (assoc-ref inputs "subversion") - "/lib/perl5/site_perl"))) + ,(map (lambda (i) (string-append (assoc-ref inputs i) + "/lib/perl5/site_perl")) + '("subversion" "perl-term-readkey"))) ;; XXX: The .so for SVN/Core.pm lacks a RUNPATH, so ;; help it find 'libsvn_client-1.so'.