chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
git-debrebase: fresh_workarea: Support $subdir
[dgit.git]
/
git-debrebase
diff --git
a/git-debrebase
b/git-debrebase
index bd93fbd07eef19090da2380dcc866e6d55a3a953..3ac087c980034a3a4812b97ec6d8a5b21c4b1e07 100755
(executable)
--- a/
git-debrebase
+++ b/
git-debrebase
@@
-128,8
+128,10
@@
sub in_workarea ($) {
die $@ if $@;
}
die $@ if $@;
}
-sub fresh_workarea () {
- $workarea = fresh_playground "$playprefix/work";
+sub fresh_workarea (;$) {
+ my ($subdir) = @_;
+ $subdir //= 'work';
+ $workarea = fresh_playground "$playprefix/$subdir";
in_workarea sub { playtree_setup };
}
in_workarea sub { playtree_setup };
}
@@
-379,10
+381,13
@@
sub gbp_pq_export ($$$) {
# our own patch identification algorithm?
# this is an alternative strategy
# our own patch identification algorithm?
# this is an alternative strategy
-sub merge_failed ($$) {
- my ($wrecknotes, $emsg) = @_;
+sub merge_failed ($$
;@
) {
+ my ($wrecknotes, $emsg
, @xmsgs
) = @_;
my @m;
push @m, "Merge resolution failed: $emsg";
my @m;
push @m, "Merge resolution failed: $emsg";
+ push @m, @xmsgs;
+
+ changedir $maindir;
my @updates;
merge_wreckage_cleaning \@updates;
my @updates;
merge_wreckage_cleaning \@updates;
@@
-394,8
+399,12
@@
sub merge_failed ($$) {
push @m, "Wreckage left in $wrecknoteprefix/*.";
push @m, "See git-debrebase(1) section FAILED MERGES for suggestions.";
push @m, "Wreckage left in $wrecknoteprefix/*.";
push @m, "See git-debrebase(1) section FAILED MERGES for suggestions.";
- # ^ xxx this section does not yet exist
- fail join '', map { "$_\n" } @m;
+
+ # use finish rather than fail, in case we are within an eval
+ # (that can happen inside walk!)
+ print STDERR "\n";
+ print STDERR "$us: $_\n" foreach @m;
+ finish 15;
}
sub mwrecknote ($$$) {
}
sub mwrecknote ($$$) {
@@
-433,7
+442,18
@@
sub merge_series ($$$;@) {
my $mwrecknote = sub { &mwrecknote($wrecknotes, @_); };
my $mwrecknote = sub { &mwrecknote($wrecknotes, @_); };
- local $workarea = fresh_playground "$playprefix/merge";
+ my $attempt_cmd = sub {
+ debugcmd '+', @_;
+ $!=0; $?=-1;
+ if (system @_) {
+ merge_failed $wrecknotes,
+ failedcmd_waitstatus(),
+ "failed command: @_";
+ }
+ };
+
+ local $workarea;
+ fresh_workarea "merge";
my $seriesfile = "debian/patches/series";
in_workarea sub {
playtree_setup();
my $seriesfile = "debian/patches/series";
in_workarea sub {
playtree_setup();
@@
-492,11
+512,8
@@
sub merge_series ($$$;@) {
runcmd @git, qw(checkout -q -b merge);
printdebug "merge_series merging...\n";
my @mergecmd = (@git, qw(merge --quiet --no-edit), "p-1");
runcmd @git, qw(checkout -q -b merge);
printdebug "merge_series merging...\n";
my @mergecmd = (@git, qw(merge --quiet --no-edit), "p-1");
- debugcmd '+', @mergecmd;
- $!=0; $?=-1;
- if (system @mergecmd) {
- failedcmd @mergecmd;
- }
+
+ $attempt_cmd->(@mergecmd);
printdebug "merge_series merge ok, series...\n";
# We need to construct a new series file
printdebug "merge_series merge ok, series...\n";
# We need to construct a new series file
@@
-572,7
+589,8
@@
sub merge_series ($$$;@) {
$mwrecknote->('merged-patchqueue', git_rev_parse 'HEAD');
printdebug "merge_series series gbp pq import\n";
$mwrecknote->('merged-patchqueue', git_rev_parse 'HEAD');
printdebug "merge_series series gbp pq import\n";
- runcmd qw(gbp pq import);
+
+ $attempt_cmd->(qw(gbp pq import));
# OK now we are on patch-queue/merge, and we need to rebase
# onto the intended parent and drop the patches from each one
# OK now we are on patch-queue/merge, and we need to rebase
# onto the intended parent and drop the patches from each one
@@
-1331,8
+1349,9
@@
sub walk ($;$$$) {
my ($btip, $bbw, $banchor) = eval {
walk $ib, 0, $report, $report_lprefix.' ';
};
my ($btip, $bbw, $banchor) = eval {
walk $ib, 0, $report, $report_lprefix.' ';
};
- $nomerge->("walking interchange branch merge base ($ibleaf): ".
- $@) if length $@;
+ $nomerge->("walking interchange branch merge base ($ibleaf):\n".
+ $@)
+ if length $@;
$mwrecknote->("mergebase-laundered", $btip);
$mwrecknote->("mergebase-breakwater", $bbw);
$mwrecknote->("mergebase-laundered", $btip);
$mwrecknote->("mergebase-breakwater", $bbw);