git: warn on ->cat_async callback errors

[public-inbox.git] / lib / PublicInbox / Git.pm

diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm
index 057135efd0dccbf7ac69f7059f46518e72e951d3..8426cc7d6a705488e8dded3bd0691fd412e0a372 100644 (file)
--- a/lib/PublicInbox/Git.pm
+++ b/lib/PublicInbox/Git.pm
@@ -147,6 +147,7 @@ sub _cat_async_step ($$) {
        my ($oid_hex, $type, $size) = ($1, $2, $3 + 0);
        my $bref = read_cat_in_full($self, $size);
        eval { $cb->($bref, $oid_hex, $type, $size, $arg) };
+       warn "E: $oid_hex $@\n" if $@;
 }
 
 sub cat_async_wait ($) {