From 80a55b8b32f7a9fd0ddac6a8fa5b7dcb16c804c5 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 24 Aug 2014 15:51:28 +0200
Subject: [PATCH] show and count deleted records

---
 perl/Gnome-Tomboy/lib/Tomboy/Directory.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
index 437a663..bcefc8c 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
@@ -98,7 +98,7 @@ sub scan_dir
   }
 
   my @res= ();
-  my ($cnt_added, $cnt_updated, $cnt_unchanged)= (0, 0, 0);
+  my ($cnt_added, $cnt_updated, $cnt_unchanged, $cnt_dropped)= (0, 0, 0, 0);
   NOTE: while (my $e= readdir (DIR))
   {
     next NOTE if ($e eq '.' || $e eq '..');
@@ -117,6 +117,7 @@ sub scan_dir
     if ($quick)
     {
       my $x_rec= $fnm{$fp};
+      delete ($fnm{$fp});
 
       if (defined ($x_rec))
       {
@@ -165,9 +166,15 @@ sub scan_dir
   closedir (DIR);
 
 # TODO: list dropped files
+  foreach my $fp (keys %fnm)
+  {
+    print "dropped: ", $fp, "\n";
+    $cnt_dropped++;
+  }
+
 # TODO: save statistics and/or file status for later processing
 
-  print "statistics: cnt_added=$cnt_added cnt_updated=$cnt_updated cnt_unchanged=$cnt_unchanged\n";
+  print "statistics: cnt_added=$cnt_added cnt_updated=$cnt_updated cnt_dropped=$cnt_dropped cnt_unchanged=$cnt_unchanged\n";
   (wantarray) ? @res : \@res;
 }
 
-- 
GitLab