utils: Change 'patch-makefile-SHELL' to support ":=" assignments.

Reported by Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>.

* guix/build/utils.scm (patch-makefile-SHELL): Update regexp to match
  ":=" assignments.
This commit is contained in:
Ludovic Courtès 2014-12-13 00:06:32 +01:00
parent 5e5deea952
commit c809ec94d1

View file

@ -638,7 +638,7 @@ (define (find-shell name)
(let ((st (stat file)))
(substitute* file
(("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$"
(("^ *SHELL[[:blank:]]*:?=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$"
_ dir shell args)
(let* ((old (string-append dir shell))
(new (or (find-shell shell) old)))