view release on metacpan or  search on metacpan

DB_File.xs  view on Meta::CPAN

          }                                                           \
          else                                                        \
              sv_setiv(arg, (I32)*(I32*)name.data - 1);               \
          TAINT;                                                      \
          SvTAINTED_on(arg);                                          \
          SvUTF8_off(arg);                                            \
          DBM_ckFilter(arg, filter_fetch_key,"filter_fetch_key") ;    \
      }                                                               \
    }

/* Macro err_close only for use in croak_and_free */
#ifdef BERKELEY_DB_1_OR_2 /* Berkeley DB Version 1  or 2 */
#  define err_close(r)
#else
#  define err_close(r) db_close(r)
#endif

/* Macro croak_and_free only for use in ParseOpenInfo */
#define croak_and_free(x)                                             \
    do                                                                \
    {                                                                 \
        if (RETVAL->dbp) { err_close(RETVAL) ; }                      \
        Safefree(RETVAL);                                             \
        croak(x);                                                     \
    } while (0)

#define my_SvUV32(sv) ((u_int32_t)SvUV(sv))