dgit: branchsuite: Break out @cmd

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 7ffbb89b8303d895a6520bb063137c3f2f7c4824..f1f9332a814f0e277fe13391e064044b5b67b270 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2317,6 +2317,7 @@ sub generate_commits_from_dsc () {
 
     my $authline = clogp_authline $clogp;
     my $changes = getfield $clogp, 'Changes';
+    $changes =~ s/^\n//; # Changes: \n
     my $cversion = getfield $clogp, 'Version';
 
     if (@tartrees) {
@@ -4434,7 +4435,8 @@ sub cmd_clone {
 }
 
 sub branchsuite () {
-    my $branch = cmdoutput_errok @git, qw(symbolic-ref HEAD);
+    my @cmd = (@git, qw(symbolic-ref HEAD));
+    my $branch = cmdoutput_errok @cmd;
     if ($branch =~ m#$lbranch_re#o) {
        return $1;
     } else {