utils: Change 'patch-shebang' to not try to patch Rust source files.

* guix/build/utils.scm (patch-shebang): Match only absolute paths.
This commit is contained in:
Danny Milosavljevic 2020-02-17 16:52:55 +01:00
parent 1b2b7765a0
commit 88f8549449
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5

View file

@ -894,7 +894,7 @@ (define (get-char* p)
(x x)))
(define patch-shebang
(let ((shebang-rx (make-regexp "^[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]*)(.*)$")))
(let ((shebang-rx (make-regexp "^[[:blank:]]*(/[[:graph:]]+)[[:blank:]]*([[:graph:]]*)(.*)$")))
(lambda* (file
#:optional
(path (search-path-as-string->list (getenv "PATH")))