mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 17:56:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: heimdal: Refer to cross-compiled bash.

Browse source 
* gnu/packages/kerberos.scm
  (heimdal)[arguments]<#:phases>{pre-configure}: Let "appl/afsutil/pagsh.c"
  refer to the cross-compiled bash instead of the native bash when
  cross-compiling.
This commit is contained in:
Maxime Devos 2021-08-24 22:29:56 +02:00 committed by Mathieu Othacehe
parent f706689a8d
commit 527455be35
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/kerberos.scm
View file

@ -231,11 +231,24 @@ (define-public heimdal
'())) '()))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'pre-configure (add-before 'configure 'pre-configure
(lambda _ ;; TODO(core-updates): Unconditionally use the
(substitute* '("appl/afsutil/pagsh.c" ;; %current-target-system branch.
(,(if (%current-target-system)
'lambda*
'lambda)
,(if (%current-target-system)
'(#:key inputs #:allow-other-keys)
'_)
,@(if (%current-target-system)
'((substitute* '("appl/afsutil/pagsh.c")
(("/bin/sh")
(search-input-file inputs "bin/sh")))
(substitute* '("tools/Makefile.in")
(("/bin/sh") (which "sh"))))
'((substitute* '("appl/afsutil/pagsh.c"
"tools/Makefile.in") "tools/Makefile.in")
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
#t)) #t))))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
;; For 'getxxyyy-test'. ;; For 'getxxyyy-test'.