}
sub purge_oids ($$) {
- my ($self, $purge) = @_; # $purge = { $object_id => 1, ... }
+ my ($self, $purge) = @_; # $purge = { $object_id => \'', ... }
$self->done;
my $pfx = "$self->{-inbox}->{mainrepo}/git";
my $purges = [];
-d $git_dir or next;
my $git = PublicInbox::Git->new($git_dir);
my $im = $self->import_init($git, 0, 1);
- $purges->[$i] = $im->purge_oids($purge);
+ $purges->[$i] = $im->replace_oids($purge);
$im->done;
}
$purges;
$removed = $smsg;
my $oid = $smsg->{blob};
if ($purge) {
- $purge->{$oid} = 1;
+ $purge->{$oid} = \'';
} else {
($mark, undef) = $im->remove($orig, $cmt_msg);
}