From ca8def6e6fd9670affe8eb489c47d460e46e8061 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sat, 23 Feb 2013 23:27:46 +0100 Subject: 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. --- guix/build/utils.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix/build') diff --git a/guix/build/utils.scm b/guix/build/utils.scm index f7fb7938e5..d17346607f 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -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~%" -- cgit v1.2.3