X-Git-Url: http://git.jankratochvil.net/?p=captive.git;a=blobdiff_plain;f=src%2FTraceFS%2Fchecktrace.pl;h=61c63e89abaef4f84d7ba0767dbf82fead92ff8d;hp=9c1964d95d4335265509e6903c8649f1693eb8ff;hb=HEAD;hpb=dbe9c30721cec0dd7fc2d017bf2e050129e759f2 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={