From 67cf684ac0efadc922fe30c71f5b0f62d96f6a3b Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andk@cpan.org>
Date: Sun, 20 Feb 2011 09:38:15 +0100
Subject: [PATCH] let fsck ignore the recent files

---
 bin/rrr-fsck | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/bin/rrr-fsck b/bin/rrr-fsck
index 4af3eae..b413a51 100755
--- a/bin/rrr-fsck
+++ b/bin/rrr-fsck
@@ -105,6 +105,12 @@ for my $passthrough (qw(remoteroot verbose)) {
 }
 my $root = $recc->localroot;
 die "Alert: Root not defined, giving up" unless defined $root;
+my $prf = $recc->principal_recentfile;
+my $filenameroot = $prf->filenameroot;
+my $serializer_suffix = $prf->serializer_suffix;
+my $ignore_rx = qr((?x:
+ ^ \Q$filenameroot\E (?:  - [0-9]*[smhdWMQYZ] \Q$serializer_suffix\E (?: \.lock (?: /.* )? )?  | \.recent ) \z 
+));
 
 my %diskfiles;
 my $i;
@@ -117,6 +123,8 @@ find({
       wanted => sub {
           my @lstat = lstat $_;
           return unless -l _ or -f _;
+          my($reportname) = $File::Find::name =~ m{^\Q$root\E/*(.*)};
+          return if $reportname =~ $ignore_rx;
           $i++;
           if ($Opt{verbose} && time - $last_verbosity > 0.166666) {
               printf "\r%8d files and symlinks checked on disk ", $i;
-- 
2.11.4.GIT