fix printcmd and shellquote

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 0c024c942c57c0fe5fb3a48e0fcd919447041831..2f4ce4896e8e0b7b45ad25e7f15e402f9e181705 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -289,13 +289,13 @@ sub shellquote {
            push @out, $_;
        }
     }
-    return join '', @out;
+    return join ' ', @out;
 }
 
 sub printcmd {
     my $fh = shift @_;
     my $intro = shift @_;
-    print $fh $intro or die $!;
+    print $fh $intro," " or die $!;
     print $fh shellquote @_ or die $!;
     print $fh "\n" or die $!;
 }