~ruther/guix-local: Patch-shebang: Do not add space after interpreter without argument.

ca8def6e6fd9670affe8eb489c47d460e46e8061 — Andreas Enge 13 years ago 11996d8

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M guix/build/utils.scm

M guix/build/utils.scm => guix/build/utils.scm +3 -1

@@ 486,7 486,9 @@ FILE are kept unchanged."
                                                 "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~%"