aboutsummaryrefslogtreecommitdiff
path: root/distro/packages/base.scm
diff options
context:
space:
mode:
Diffstat (limited to 'distro/packages/base.scm')
-rw-r--r--distro/packages/base.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm
index fc1de80b20..107ca55098 100644
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@@ -1496,7 +1496,7 @@ check whether everything is alright."
system "/static-binaries.tar.xz"))
(sha256
(base32
- "0bvhkzahjgf6w5i3db5bjgq8kqm6xdr23lig0s1p8fgdqbfp0bzm"))))
+ "0azisn8l2b3cvgni9k0ahzsxs5cxrj0hmf38zgpq3k6pggk3zbfm"))))
"true" ; the program to test
"Bootstrap binaries of Coreutils, Awk, etc."))
@@ -2200,10 +2200,22 @@ store.")
(string-append bin "/" name)))))
(alist-delete "coreutils" %build-inputs))
+ ;; But of course, there are exceptions to this rule.
+ (let ((grep (assoc-ref %build-inputs "grep")))
+ (copy-file (string-append grep "/bin/fgrep")
+ (string-append bin "/fgrep"))
+ (copy-file (string-append grep "/bin/egrep")
+ (string-append bin "/egrep")))
+
;; Clear references to the store path.
(for-each remove-store-references
(directory-contents bin))
+ (with-directory-excursion bin
+ ;; Programs such as Perl's build system want these aliases.
+ (symlink "bash" "sh")
+ (symlink "gawk" "awk"))
+
#t)))))
(description "Statically-linked bootstrap binaries")
(long-description