Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
badusage "dry run makes no sense with import-dsc" unless act_local();
badusage "dry run makes no sense with import-dsc" unless act_local();
+ my $info = "$dscfn";
+
+ my $specbranch = $dstbranch;
$dstbranch = "refs/heads/$dstbranch" unless $dstbranch =~ m#^refs/#;
$dstbranch = cmdoutput @git, qw(check-ref-format --normalize), $dstbranch;
$dstbranch = "refs/heads/$dstbranch" unless $dstbranch =~ m#^refs/#;
$dstbranch = cmdoutput @git, qw(check-ref-format --normalize), $dstbranch;
plausible server (browse.dgit.d.o? alioth?), and try the import-dsc again.
END
}
plausible server (browse.dgit.d.o? alioth?), and try the import-dsc again.
END
}
- @cmd = (@git, qw(update-ref -m), "dgit import-dsc (Dgit): $dscfn",
+ @cmd = (@git, qw(update-ref -m), "dgit import-dsc (Dgit): $info",
$dstbranch, $dgit_commit);
runcmd @cmd;
progress "dgit: import-dsc updated git ref $dstbranch";
$dstbranch, $dgit_commit);
runcmd @cmd;
progress "dgit: import-dsc updated git ref $dstbranch";
my @mergeinputs = generate_commits_from_dsc();
die unless @mergeinputs == 1;
my @mergeinputs = generate_commits_from_dsc();
die unless @mergeinputs == 1;
- my @cmd = (@git, qw(update-ref -m), "dgit import-dsc: $dscfn",
+ my @cmd = (@git, qw(update-ref -m), "dgit import-dsc: $info",
$dstbranch, $mergeinputs[0]{Commit});
runcmd @cmd;
progress "dgit: import-dsc results are in in git ref $dstbranch";
$dstbranch, $mergeinputs[0]{Commit});
runcmd @cmd;
progress "dgit: import-dsc results are in in git ref $dstbranch";