guix_mirror_bot pushed a commit to branch core-packages-team in repository guix.
commit 8e929d1f672c55f05784e641aa59b4bf98bdf481 Author: Nicolas Graves <[email protected]> AuthorDate: Mon Feb 16 08:49:08 2026 +0100 gnu: perl-5.6: Improve style. * gnu/packages/perl.scm (perl-5.6)[arguments]: Improve style. Change-Id: Ie91888460704fed52564da1d476d6a0520ac469c Signed-off-by: Ludovic Courtès <[email protected]> --- gnu/packages/perl.scm | 98 +++++++++++++++++++++++++-------------------------- 1 file changed, 49 insertions(+), 49 deletions(-) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index d459b82df6..202a60139f 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -362,55 +362,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"))) - - (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") - - ;; 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$")))))))) + (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=" #$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 _ + ;; 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
