tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: perl-5.6: Improve style.

Browse Source 
* gnu/packages/perl.scm (perl-5.6)[arguments]: Improve style.

Change-Id: Ie91888460704fed52564da1d476d6a0520ac469c
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Nicolas Graves
2026-02-16 08:49:08 +01:00
committed by Ludovic Courtès
parent 3ccf2a67ec
commit 74445bfa5e
1 changed files with 47 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
gnu/packages/perl.scm
View File

@@ -363,55 +363,55 @@ more.")
(hidden? . #t))) ;only for GHC 4.
(build-system gnu-build-system)
(arguments
'(#:tests? #f
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(libc (assoc-ref inputs "libc")))
;; Use the right path for `pwd'.
(substitute* "lib/Cwd.pm"
(("/bin/pwd")
(which "pwd")))
(list
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs #:allow-other-keys)
(let ((libc (assoc-ref inputs "libc")))
;; Use the right path for `pwd'.
(substitute* "lib/Cwd.pm"
(("/bin/pwd")
(which "pwd")))
(invoke "./Configure"
(string-append "-Dprefix=" out)
(string-append "-Dman1dir=" out "/share/man/man1")
(string-append "-Dman3dir=" out "/share/man/man3")
"-de" "-Dcc=gcc -std=c90"
"-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5"
"-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib")
(invoke "./Configure"
(string-append "-Dprefix=" #$output)
(string-append "-Dman1dir=" #$output "/share/man/man1")
(string-append "-Dman3dir=" #$output "/share/man/man3")
"-de" "-Dcc=gcc -std=c90"
"-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5"
"-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib")
;; Force the library search path to contain only libc
;; because it is recorded in Config.pm and
;; Config_heavy.pl; we don't want to keep a reference
;; to everything that's in $LIBRARY_PATH at build
;; time (Binutils, bzip2, file, etc.)
(string-append "-Dlibpth=" libc "/lib")
(string-append "-Dplibpth=" libc "/lib")))))
(add-after 'configure 'bleh
(lambda _
(substitute* '("makefile"
"x2p/makefile")
((".*\\<command-line>.*") ""))
;; Don't look for /usr/include/errno.h.
(substitute* "ext/Errno/Errno_pm.PL"
(("O eq 'linux'") "O eq 'loonix'"))
(substitute* "ext/IPC/SysV/SysV.xs"
((".*asm/page.h.*") ""))))
(add-before 'strip 'make-shared-objects-writable
(lambda* (#:key outputs #:allow-other-keys)
;; The 'lib/perl5' directory contains ~50 MiB of .so. Make them
;; writable so that 'strip' actually strips them.
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(for-each (lambda (dso)
(chmod dso #o755))
(find-files lib "\\.so$"))))))))
;; Force the library search path to contain only libc
;; because it is recorded in Config.pm and
;; Config_heavy.pl; we don't want to keep a reference
;; to everything that's in $LIBRARY_PATH at build
;; time (Binutils, bzip2, file, etc.)
(string-append "-Dlibpth=" libc "/lib")
(string-append "-Dplibpth=" libc "/lib")))))
(add-after 'configure 'bleh
(lambda _
(substitute* '("makefile" "x2p/makefile")
((".*\\<command-line>.*")
""))
;; Don't look for /usr/include/errno.h.
(substitute* "ext/Errno/Errno_pm.PL"
(("O eq 'linux'")
"O eq 'loonix'"))
(substitute* "ext/IPC/SysV/SysV.xs"
((".*asm/page.h.*")
""))))
(add-before 'strip 'make-shared-objects-writable
(lambda _
;; The 'lib/perl5' directory contains ~50 MiB of .so. Make them
;; writable so that 'strip' actually strips them.
(for-each
(lambda (dso) (chmod dso #o755))
(find-files (string-append #$output "/lib") "\\.so$")))))))
(native-inputs '())))
(define-public perl-algorithm-c3