my ($input,
$nogenerate,$report) = @_;
# => ($tip, $breakwater_tip)
my ($input,
$nogenerate,$report) = @_;
# => ($tip, $breakwater_tip)
# is already in valid breakwater format, with the
# patches as commits.
printf $report " NoPM" if $report;
# is already in valid breakwater format, with the
# patches as commits.
printf $report " NoPM" if $report;
# last thing we processed will have been the first patch,
# if there is one; which is fine, so no need to rewrite
# on account of this import
# last thing we processed will have been the first patch,
# if there is one; which is fine, so no need to rewrite
# on account of this import
my $rm_tree_cached = sub {
my ($subdir) = @_;
runcmd @git, qw(rm --quiet -rf --cached), $subdir;
my $rm_tree_cached = sub {
my ($subdir) = @_;
runcmd @git, qw(rm --quiet -rf --cached), $subdir;
- runcmd @git, qw(diff-tree --quiet),
- map { $wantdebonly ? "$_:debian" : $_ }
- $input, $build;
+ runcmd @git, qw(diff-tree --quiet), $input, $build;
return ($build, $breakwater);
}
sub get_head () { return git_rev_parse qw(HEAD); }
return ($build, $breakwater);
}
sub get_head () { return git_rev_parse qw(HEAD); }
my ($old, $new, $mrest) = @_;
runcmd @git, qw(update-ref -m), "git-debrebase $mrest", $new, $old;
}
my ($old, $new, $mrest) = @_;
runcmd @git, qw(update-ref -m), "git-debrebase $mrest", $new, $old;
}