From: short <>
Date: Wed, 13 Aug 2003 08:39:25 +0000 (+0000)
Subject: +debug dump CcFlushCache() catch of Lsn.
X-Git-Tag: bp_captive~83
X-Git-Url: http://git.jankratochvil.net/?p=captive.git;a=commitdiff_plain;h=dbe9c30721cec0dd7fc2d017bf2e050129e759f2

+debug dump CcFlushCache() catch of Lsn.
---

diff --git a/src/TraceFS/checktrace.pl b/src/TraceFS/checktrace.pl
index 1869469..9c1964d 100755
--- a/src/TraceFS/checktrace.pl
+++ b/src/TraceFS/checktrace.pl
@@ -767,6 +767,9 @@ my($LogHandle,$Lsn)=@_;
 
 	$Object->{"LogHandle"}=$LogHandle;
 	$Object->{"Lsn"}=$Lsn;
+
+	my $obj=${$EnterLeave}[$#$EnterLeave-1];
+	warn "FLUSH" if $obj->{"by"} eq "CcFlushCache";
 }
 
 my $LogHandle_static;