+debug dump CcFlushCache() catch of Lsn.

diff --git a/src/TraceFS/checktrace.pl b/src/TraceFS/checktrace.pl
index 1869469..9c1964d 100755 (executable)
--- 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;