gnu: debootstrap: Patch reference to dpkg.

* gnu/packages/debian.scm (debootstrap)[arguments]: Adjust 'patch-source
phase to also patch a reference to dpkg.
[inputs]: Add dpkg.
This commit is contained in:
Efraim Flashner 2022-05-23 15:10:28 +03:00
parent 2bd17f8a15
commit 658525f6ec
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -208,6 +208,7 @@ (define-public debootstrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(tzdata (assoc-ref inputs "tzdata"))
(dpkg (assoc-ref inputs "dpkg"))
(debian (assoc-ref inputs "debian-keyring"))
(ubuntu (assoc-ref inputs "ubuntu-keyring")))
(substitute* "Makefile"
@ -224,7 +225,8 @@ (define-public debootstrap
(substitute* "scripts/gutsy"
(("/usr") ubuntu))
(substitute* "debootstrap"
(("=/usr") (string-append "=" out)))
(("=/usr") (string-append "=" out))
(("/usr/bin/dpkg") (string-append dpkg "/bin/dpkg")))
;; Ensure PATH works both in guix and within the debian chroot
;; workaround for: https://bugs.debian.org/929889
(substitute* "functions"
@ -252,6 +254,7 @@ (define-public debootstrap
(inputs
`(("debian-keyring" ,debian-archive-keyring)
("ubuntu-keyring" ,ubuntu-keyring)
("dpkg" ,dpkg)
("tzdata" ,tzdata)
;; Called at run-time from various places, needs to be in PATH.