ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 12:39:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Preserve makefile shell arguments during patch.

Browse source 
* guix/build/utils.scm (patch-makefile-SHELL): Preserve shell arguments.
This commit is contained in:
Eric Bavier 2014-08-27 10:26:54 -05:00
parent f5beb0caf3
commit 83291101c3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/utils.scm
View file

@ -582,14 +582,15 @@ (define (find-shell name)
(let ((st (stat file)))
(substitute* file
(("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)[[:blank:]]*" _ dir shell)
(("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)[[:blank:]]*(.*)$"
_ dir shell args)
(let* ((old (string-append dir shell))
(new (or (find-shell shell) old)))
(unless (string=? new old)
(format (current-error-port)
"patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%"
file old new))
(string-append "SHELL = " new "\n"))))
(string-append "SHELL = " new " " args))))
(when keep-mtime?
(set-file-time file st))))