watchmaildir: show $@ in warning message

It should be helpful to know what error happened.

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm
index 985f9192..c436742c 100644
--- a/lib/PublicInbox/WatchMaildir.pm
+++ b/lib/PublicInbox/WatchMaildir.pm
@@ -111,7 +111,10 @@ sub _remove_spam {
                                 $im->remove($scrubbed);
                         }
                 };
-                warn "error removing spam at $path from $ibx->{name}\n" if $@;
+                if ($@) {
+                        warn "error removing spam at: ", $path,
+                                " from ", $ibx->{name}, ': ', $@, "\n";
+                }
         })
 }