lei_mail_sync: show non-matching SHA

It could prove useful for diagnosing bugs (either on our
end or an MUA's), or storage device failures.

1 files changed, 6 insertions, 3 deletions

diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index f2f1e3ed..e70cb5de 100644
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -339,9 +339,12 @@ WHERE b.oidbin = ?
                         next unless -s $fh;
                         local $/;
                         my $raw = <$fh>;
-                        if ($vrfy && git_sha(1, \$raw)->hexdigest ne $oidhex) {
-                                warn "$f changed $oidhex\n";
-                                next;
+                        if ($vrfy) {
+                                my $got = git_sha(1, \$raw)->hexdigest;
+                                if ($got ne $oidhex) {
+                                        warn "$f changed $oidhex => $got\n";
+                                        next;
+                                }
                         }
                         return \$raw;
                 }