Help for this page

Select Code to Download


  1. or download this
    if ( (unsigned)size > 1000000 ) Perl_croak(aTHX_ "Bugger!\n")
  2. or download this
    /** Storable.xs 1.0.13 **/
#define CROAK(x)        do { cxt->s_dirty = 1; croak x; } while (0)
  3. or download this
    /** Storable.xs 2.13 **/
#define CROAK(x)        STMT_START { cxt->s_dirty = 1; croak x; } STMT
+_END