From a374970313589e60b3a9b2816abe6065a5a92ef5 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <k@k5.linux.bogus>
Date: Sun, 3 May 2009 13:50:21 +0200
Subject: [PATCH] adjust verbosity on delete events

---
 lib/File/Rsync/Mirror/Recentfile.pm | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/lib/File/Rsync/Mirror/Recentfile.pm b/lib/File/Rsync/Mirror/Recentfile.pm
index b32ce2e..b0fcc61 100644
--- a/lib/File/Rsync/Mirror/Recentfile.pm
+++ b/lib/File/Rsync/Mirror/Recentfile.pm
@@ -1277,14 +1277,38 @@ sub _mirror_perform_delayed_ops {
             require Carp;
             Carp::cluck ( "Warning: Error while unlinking '$dst': $!" );
         }
-        delete $delayed->{unlink}{$dst};
+        if ($self->verbose) {
+            my $doing = "Del";
+            my $LFH = $self->_logfilehandle;
+            printf $LFH
+                (
+                 "%-4s %d (%s) %s DONE\n",
+                 $doing,
+                 time,
+                 $self->interval,
+                 $dst,
+                );
+            delete $delayed->{unlink}{$dst};
+        }
     }
     for my $dst (sort {length($b) <=> length($a)} keys %{$delayed->{rmdir}}) {
         unless (rmdir $dst) {
             require Carp;
             Carp::cluck ( "Warning: Error on rmdir '$dst': $!" );
         }
-        delete $delayed->{rmdir}{$dst};
+        if ($self->verbose) {
+            my $doing = "Del";
+            my $LFH = $self->_logfilehandle;
+            printf $LFH
+                (
+                 "%-4s %d (%s) %s DONE\n",
+                 $doing,
+                 time,
+                 $self->interval,
+                 $dst,
+                );
+            delete $delayed->{rmdir}{$dst};
+        }
     }
 }
 
-- 
2.11.4.GIT