02/07: gnu: bootstrap: Fix egrep and fgrep after unpacking bootstrap binaries.

[Mark H. Weaver]

mhw pushed a commit to branch wip-armhf
in repository guix.

commit 4922082fb7766e3ffe57708c10896def550fb965
Author: Mark H Weaver <address@hidden>
Date:   Wed Dec 31 03:41:50 2014 -0500

    gnu: bootstrap: Fix egrep and fgrep after unpacking bootstrap binaries.
    
    * gnu/packages/bootstrap.scm (%bootstrap-coreutils&co): Add #:snippet 
argument
      to 'package-from-tarball' that calls 'patch-shebang' on egrep and fgrep
      after unpacking.
---
 gnu/packages/bootstrap.scm |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm
index b3b8de9..e5d101a 100644
--- a/gnu/packages/bootstrap.scm
+++ b/gnu/packages/bootstrap.scm
@@ -263,7 +263,14 @@ $out/bin/guile --version~%"
                                (base32
                                 
"072y4wyfsj1bs80r6vbybbafy8ya4vfy7qj25dklwk97m6g71753"))))))
                         "true"                    ; the program to test
-                        "Bootstrap binaries of Coreutils, Awk, etc."))
+                        "Bootstrap binaries of Coreutils, Awk, etc."
+                        #:snippet
+                        '(let ((path (list (string-append (getcwd) "/bin"))))
+                           (chmod "bin" #o755)
+                           (patch-shebang "bin/egrep" path)
+                           (patch-shebang "bin/fgrep" path)
+                           (chmod "bin" #o555)
+                           #t)))
 
 (define %bootstrap-binutils
   (package-from-tarball "binutils-bootstrap"