#!/usr/bin/perl -w
#
-## Copyright (C) 1996-2016 The Squid Software Foundation and contributors
+## Copyright (C) 1996-2017 The Squid Software Foundation and contributors
##
## Squid software is distributed under GPLv2+ license and includes
## contributions from numerous individuals and organizations.
'HttpStateData (\S+) destroyed',
],
cbdata => [
- 'cbdataAlloc: (\S+)',
- '(?:cbdataFree|cbdataUnlock): Freeing (\S+)',
+ 'cbdataInternalAlloc: Allocating (\S+)',
+ 'cbdataRealFree: Freeing (\S+)',
],
FD => [
'fd_open.*\sFD (\d+)',
}
elsif (my @deIds = (/$reDestructor/)) {
my $id = join(':', @deIds);
- #warn("unborn: $_") unless $AliveCount{$id};
- $AliveImage{$id} = undef() unless --$AliveCount{$id};
+ if ($AliveCount{$id}) {
+ $AliveImage{$id} = undef() unless --$AliveCount{$id};
+ } else {
+ #warn("unborn: $_");
+ # do nothing; we are probably looking at a partial log
+ }
}
}