lei_mail_sync: prepare to support SHA-256

I'm not sure how combining SHA-1 and SHA-256 in a single git
repo will work, eventually.   But this is an obvious place to do
the right thing if we ever see a 64-byte hex string (unless git
adds support for another hash which uses 64-byte hex string
representations, which would break many assumptions elsewhere,
too...).

diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index ea4d48c1a124c324b71d2a12da7c9fa5563581cb..308b1695b2efb742479bf592ec0c37762ca3556a 100644 (file)
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -9,6 +9,7 @@ use parent qw(PublicInbox::Lock);
 use DBI qw(:sql_types); # SQL_BLOB
 use PublicInbox::ContentHash qw(git_sha);
 use Carp ();
+use PublicInbox::Git qw(%HEXLEN2SHA);
 
 sub dbh_new {
        my ($self) = @_;
@@ -457,7 +458,8 @@ WHERE b.oidbin = ?
                        local $/;
                        my $raw = <$fh>;
                        if ($vrfy) {
-                               my $got = git_sha(1, \$raw)->hexdigest;
+                               my $sha = $HEXLEN2SHA{length($oidhex)};
+                               my $got = git_sha($sha, \$raw)->hexdigest;
                                if ($got ne $oidhex) {
                                        warn "$f changed $oidhex => $got\n";
                                        next;