summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-09-24 13:11:24 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2018-09-24 18:10:48 +0200
commite6dcf9ca5f386c98fc03093032d65559c03164e2 (patch)
tree0863ef44669266bf1a5e1d850a869fe9f51f6bcc /gnu
parent4cb4af797a08047b5ca894fcb7930519dd2ef466 (diff)
downloadguix-e6dcf9ca5f386c98fc03093032d65559c03164e2.tar.gz
gnu: rename: Update to 1.00.
* gnu/packages/admin.scm (rename): Update to 1.00.
[arguments]: Wrap executable to find its own library.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/admin.scm20
1 files changed, 18 insertions, 2 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index e7e34ab97f..8f504cafef 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -869,7 +869,7 @@ over ssh connections.")
 (define-public rename
   (package
     (name "rename")
-    (version "0.35")
+    (version "1.00")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -877,8 +877,24 @@ over ssh connections.")
                     version ".tar.gz"))
               (sha256
                (base32
-                "052iqmn7ya3w1nadpiyavmr3rx566r0lbflx94y8b5wx9q5c16rq"))))
+                "03yhf8nmqsb0zyliv501fdvwlp589jqfn44yqkrflmpzrbik3zxl"))))
     (build-system perl-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'find-itself
+           ;; Fix run-time 'Can't locate File/Rename.pm in @INC' failure.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (with-directory-excursion bin
+                 (for-each
+                  (lambda (program)
+                    (wrap-program program
+                      `("PERL5LIB" ":" prefix
+                        (,(string-append out "/lib/perl5/site_perl")))))
+                  (find-files "." ".*")))
+               #t))))))
     (native-inputs
      `(("perl-module-build" ,perl-module-build)
        ("perl-test-pod" ,perl-test-pod)