5.013003
Perl_blockhook_register        # E