amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: perl-devel-repl: Reduce propagated inputs.

Browse source 
* gnu/packages/perl.scm (perl-devel-repl): Move propagated inputs to
references so the package can be used to debug Perl libs without conflicts.
  [arguments]<#phases>{wrap-with-perl-libs}: New phase.

Change-Id: Icdcd4824fbfce7398fcbb33a0c55d31f66cefb8b
Signed-off-by: Steve George <steve@futurile.net>
This commit is contained in:
Steve George 2025-05-06 22:18:07 +01:00
parent 892bd6772c
commit f78051c08a
No known key found for this signature in database
GPG key ID: F51D4A16DCEE6FA7
1 changed files with 63 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

52
gnu/packages/perl.scm
View file

@ -4282,8 +4282,53 @@ arbitrary parameters.")
(sha256
(base32 "0s9w8ws2ckv0mbvns2irq4npmvj6chf6iyy3z0pspaz3izcfp1vw"))))
(build-system perl-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-with-perl-libs
;; Wrap the re.pl script with required libs to reduce runtime
;; propagated-inputs
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((bindir (string-append #$output "/bin"))
(binaries (find-files bindir))
(wrap.pl (lambda (scripts keys)
(for-each
(lambda (script)
(wrap-program script
`("PERL5LIB" ":" prefix
,(cons*
(getenv "PERL5LIB")
(string-append #$output
"/lib/perl5/site_perl")
(map
(lambda (key)
(string-append
(assoc-ref inputs key)
"/lib/perl5/site_perl"))
keys)))))
scripts))))
(wrap.pl binaries
(list "perl-app-nopaste"
"perl-b-keywords"
"perl-data-dump-streamer"
"perl-data-dumper-concise"
"perl-file-next"
"perl-lexical-persistence"
"perl-module-refresh"
"perl-module-runtime"
"perl-moose"
"perl-moosex-getopt"
"perl-moosex-object-pluggable"
"perl-namespace-autoclean"
"perl-ppi"
"perl-ppi-xs"
"perl-sys-sigaction"
"perl-task-weaken"))))))))
(native-inputs (list perl-test-fatal))
(propagated-inputs (list perl-app-nopaste
(inputs (list bash-minimal
perl-app-nopaste
perl-b-keywords
perl-data-dump-streamer
perl-data-dumper-concise
@ -4300,9 +4345,8 @@ arbitrary parameters.")
perl-sys-sigaction
perl-task-weaken))
(home-page "https://metacpan.org/release/Devel-REPL")
(synopsis "Modern Perl interactive shell.")
(description "@code{Devel::REPL} is a modern Perl interactive
shell.")
(synopsis "Modern Perl interactive shell")
(description "@code{Devel::REPL} is a modern Perl interactive shell.")
(license license:perl-license)))
(define-public perl-devel-stacktrace