me/guix
Archived
1
0
Fork 0
Code Activity

gnu: perl: Add more compatibility symlinks to the replacement perl.

Browse source 
Fixes <https://bugs.gnu.org/31216>.
Reported by Julien Lepiller <julien@lepiller.eu>.

* gnu/packages/perl.scm (perl-5.26.2)[arguments]: Rename the
'workaround-grafting-version-bug' phase to 'install-compatibility-symlinks'.
Install symlinks in $out/lib/perl5/site_perl/5.26.1 and $out/bin/perl5.26.1,
in addition to $out/lib/perl5/5.26.1.  Simplify the code a bit.
This commit is contained in:
Mark H Weaver 2018-04-20 23:24:37 -04:00
parent 1af4212ae4
commit 5618193694
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/perl.scm
View file

@ -176,16 +176,16 @@
(substitute-keyword-arguments (package-arguments perl)
((#:phases phases)
`(modify-phases ,phases
;; The path to libperl.so includes the Perl version number, and this
;; is not handled by grafting. See <https://bugs.gnu.org/31210>.
(add-after 'install 'workaround-grafting-version-bug
;; The path to several installed components include the Perl
;; version number, and these is not rewritten by grafting. See
;; <https://bugs.gnu.org/31210> and <https://bugs.gnu.org/31216>.
(add-after 'install 'install-compatibility-symlinks
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dir (string-append out "/lib/perl5"))
(new "5.26.2")
(old "5.26.1"))
(with-directory-excursion dir
(symlink new old))
(let ((out (assoc-ref outputs "out")))
(symlink "perl5.26.2" (string-append out "/bin/perl5.26.1"))
(symlink "5.26.2" (string-append out "/lib/perl5/5.26.1"))
(symlink "5.26.2"
(string-append out "/lib/perl5/site_perl/5.26.1"))
#t)))))))))
(define-public perl-algorithm-c3