Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
our @deferred_updates;
our @deferred_update_messages;
our @deferred_updates;
our @deferred_update_messages;
+sub merge_wreckage_cleaning ($) {
+ my ($updates) = @_;
+ git_for_each_ref("$wrecknoteprefix/*", sub {
+ my ($objid,$objtype,$fullrefname,$reftail) = @_;
+ push @$updates, "delete $fullrefname";
+ });
+}
+
sub all_snags_summarised () {
$snags_forced + $snags_tripped == $snags_summarised;
}
sub all_snags_summarised () {
$snags_forced + $snags_tripped == $snags_summarised;
}
if ($opt_save_wreckage) {
my @updates;
if ($opt_save_wreckage) {
my @updates;
- git_for_each_ref("$wrecknoteprefix/*", sub {
- my ($objid,$objtype,$fullrefname,$reftail) = @_;
- push @updates, "delete $fullrefname";
- });
+ merge_wreckage_cleaning \@updates;
keys %$wrecknotes;
while (my ($k,$v) = each %$wrecknotes) {
push @updates, "create $wrecknoteprefix/$k $v";
keys %$wrecknotes;
while (my ($k,$v) = each %$wrecknotes) {
push @updates, "create $wrecknoteprefix/$k $v";