Patch-shebang: Do not add space after interpreter without argument.

* guix/build/utils.scm (patch-shebang): Do not add a space after a command
  interpreter not followed by an argument; this made two tests of
  coreutils fail.
This commit is contained in:
Andreas Enge 2013-02-23 23:27:46 +01:00
parent 11996d85d3
commit ca8def6e6f

View file

@ -486,7 +486,9 @@ (define (patch p interpreter rest-of-line)
"patch-shebang: ~a: changing `~a' to `~a'~%"
file interp bin)
(patch p bin
(string-append " " arg1 rest)))))
(if (string-null? arg1)
""
(string-append " " arg1 rest))))))
(begin
(format (current-error-port)
"patch-shebang: ~a: warning: no binary for interpreter `~a' found in $PATH~%"