From: short <>
Date: Wed, 13 Aug 2003 08:45:00 +0000 (+0000)
Subject: +parse also 'object header reference count' of dumped 'FileObject'
X-Git-Tag: bp_captive~81
X-Git-Url: https://git.jankratochvil.net/?p=captive.git;a=commitdiff_plain;h=dd24007e7717742499b3f5902e0152c7893d1f6e

+parse also 'object header reference count' of dumped 'FileObject'
---

diff --git a/src/TraceFS/checktrace.pl b/src/TraceFS/checktrace.pl
index 9c1964d..61c63e8 100755
--- a/src/TraceFS/checktrace.pl
+++ b/src/TraceFS/checktrace.pl
@@ -1151,7 +1151,7 @@ while (<>) {
 		push @{$LastLeave{$ProcessThread}},$Object;
 		}
 	elsif (my($FileObject,$FileName,$Flags,$SectionObjectPointer,$SharedCacheMap)=
-			/^FileObject=($hex): FileName=(?:NULL|'(.*)'),Flags=($hex),SectionObjectPointer=($hex),->SharedCacheMap=($hex)/) {
+			/^FileObject=($hex): FileName=(?:NULL|'(.*)'),(?:ref=[+-]\d+,)?Flags=($hex),SectionObjectPointer=($hex),->SharedCacheMap=($hex)/) {
 		my $aref=$EnterLeave{$ProcessThread};
 		warn "Empty stack during 'data' line" if !($Object=${$aref}[$#$aref]);
 		my $data={