Destructed objects that were never born are not alive.

Such objects are typical in partial logs that are missing some
construction events.

diff --git a/scripts/find-alive.pl b/scripts/find-alive.pl
index 21438bc4e98c953253cc87ba3b87738dfb373b90..6cccebf579a0e73931c49ae296c25a1e5a146085 100755 (executable)
--- a/scripts/find-alive.pl
+++ b/scripts/find-alive.pl
@@ -97,8 +97,12 @@ while (<STDIN>) {
        } 
        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
+               }
        }
 }