INPUT
T_dbtkeydatum
- DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
+ {
+ SV * my_sv = $arg;
+ DBM_ckFilter(my_sv, filter_store_key, \"filter_store_key\");
DBT_clear($var) ;
- SvGETMAGIC($arg) ;
+ SvGETMAGIC(my_sv) ;
if (db->type == DB_RECNO) {
- if (SvOK($arg))
- Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ;
+ if (SvOK(my_sv))
+ Value = GetRecnoKey(aTHX_ db, SvIV(my_sv)) ;
else
Value = 1 ;
$var.data = & Value;
$var.size = (int)sizeof(recno_t);
}
- else if (SvOK($arg)) {
- $var.data = SvPVbyte($arg, PL_na);
- $var.size = (int)PL_na;
+ else if (SvOK(my_sv)) {
+ STRLEN len;
+ $var.data = SvPVbyte(my_sv, len);
+ $var.size = (int)len;
}
+ }
T_dbtdatum
- DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
+ {
+ SV * my_sv = $arg;
+ DBM_ckFilter(my_sv, filter_store_value, \"filter_store_value\");
DBT_clear($var) ;
- SvGETMAGIC($arg) ;
- if (SvOK($arg)) {
- $var.data = SvPVbyte($arg, PL_na);
- $var.size = (int)PL_na;
+ SvGETMAGIC(my_sv) ;
+ if (SvOK(my_sv)) {
+ STRLEN len;
+ $var.data = SvPVbyte(my_sv, len);
+ $var.size = (int)len;
}
+ }
OUTPUT