return $r;
}
-sub quiltify_splitbrain_needed () {
- if (!$split_brain) {
- runcmd @git, qw(checkout -q -b dgit-view);
- $split_brain = 1;
- }
-}
-
sub quiltify_splitbrain ($$$$$$$) {
my ($clogp, $unapplied, $headref, $oldtiptree, $diffbits,
$editedignores, $cachekey) = @_;
local $ENV{GIT_AUTHOR_EMAIL} = $authline[1];
local $ENV{GIT_AUTHOR_DATE} = $authline[2];
- quiltify_splitbrain_needed();
+ die if $split_brain;
+ runcmd @git, qw(checkout -q -b dgit-view);
+ $split_brain = 1;
my $fulldiffhint = sub {
my ($x,$y) = @_;