2 #################################### DBM SECTION
6 datum_key_copy T_DATUM_K_C
18 DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
19 $var.dptr = SvPV($arg, PL_na);
20 $var.dsize = (int)PL_na;
24 if (db->filter_store_key) {
25 tmpSV = sv_2mortal(newSVsv($arg));
26 DBM_ckFilter(tmpSV, filter_store_key, \"filter_store_key\");
30 $var.dptr = SvPV(tmpSV, PL_na);
31 $var.dsize = (int)PL_na;
34 DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
36 $var.dptr = SvPV($arg, PL_na);
37 $var.dsize = (int)PL_na;
45 output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
46 DBM_ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
48 output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
49 DBM_ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
51 sv_setref_pv($arg, dbtype, (void*)$var);