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
1 changed files with 3 additions and 1 deletions

View File

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