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

##</code><code>##

/** Storable.xs 1.0.13 **/
#define CROAK(x)        do { cxt->s_dirty = 1; croak x; } while (0)

##</code><code>##

/** Storable.xs 2.13 **/
#define CROAK(x)        STMT_START { cxt->s_dirty = 1; croak x; } STMT_END