if ( (unsigned)size > 1000000 ) Perl_croak(aTHX_ "Bugger!\n")