+# returns true if there are pending cat-file processes
+sub cleanup_if_unlinked {
+ my ($self) = @_;
+ return cleanup($self, 1) if $^O ne 'linux';
+ # Linux-specific /proc/$PID/maps access
+ # TODO: support this inside git.git
+ my $ret = 0;
+ for my $fld (qw(pid pid_c)) {
+ my $pid = $self->{$fld} // next;
+ open my $fh, '<', "/proc/$pid/maps" or return cleanup($self, 1);
+ while (<$fh>) {
+ # n.b. we do not restart for unlinked multi-pack-index
+ # since it's not too huge, and the startup cost may
+ # be higher.
+ /\.(?:idx|pack) \(deleted\)$/ and
+ return cleanup($self, 1);
+ }
+ ++$ret;
+ }
+ $ret;
+}
+