01/01: gnu: git: Add input perl-term-readkey for 'git-svn'.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit b411517a1939612517378987ff2675b809b7074c
Author: Thomas Danckaert <address@hidden>
Date:   Tue Sep 27 15:38:51 2016 +0200

    gnu: git: Add input perl-term-readkey for 'git-svn'.
    
    * 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: 宋文武 <address@hidden>
---
 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 29559bd..ef65a03 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -143,6 +143,7 @@ as well as the classic centralized workflow.")
 
       ;; 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 @@ as well as the classic centralized workflow.")
                         (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'.