No reason to leave that (usually) empty file open after killing off
"cat-file --batch-check". This wasn't an unbound leak, though,
as respawning the --batch-check process would've clobbered the
old err_c file.
- my ($self, $in, $out, $pid) = @_;
+ my ($self, $in, $out, $pid, $err) = @_;
my $p = delete $self->{$pid} or return;
delete @$self{($in, $out)};
my $p = delete $self->{$pid} or return;
delete @$self{($in, $out)};
+ delete $self->{$err} if $err; # `err_c'
sub cleanup {
my ($self) = @_;
_destroy($self, qw(in out pid));
sub cleanup {
my ($self) = @_;
_destroy($self, qw(in out pid));
- _destroy($self, qw(in_c out_c pid_c));
+ _destroy($self, qw(in_c out_c pid_c err_c));
!!($self->{pid} || $self->{pid_c});
}
!!($self->{pid} || $self->{pid_c});
}