… | … | ||
---|---|---|---|
3820 | sub post_cleanup { | 3820 | sub post_cleanup { |
3821 | my ($make_core) = @_; | 3821 | my ($make_core) = @_; |
3822 | 3822 | ||
3823 | IO::AIO::flush; | 3823 | IO::AIO::flush; |
3824 | 3824 | ||
3825 | IO::AIO::flush; | ||
3826 | |||
3827 | error Carp::longmess "post_cleanup backtrace" | 3825 | error Carp::longmess "post_cleanup backtrace" |
3828 | if $make_core; | 3826 | if $make_core; |
3829 | 3827 | ||
3830 | my $fh = pidfile; | 3828 | my $fh = pidfile; |
3831 | unlink $PIDFILE if <$fh> == $$; | 3829 | unlink $PIDFILE if <$fh> == $$; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |