This will help us track down bugs in our own code when
it comes to missing error checking.
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) };
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 ($) {
}
sub cat_async_wait ($) {