DBD-Oracle
view release on metacpan or search on metacpan
}
if( SvIOK( item ) || val_found ){
if( ! val_found ){
ival=SvIV( item );
}
/* as phs->array_buf=malloc(), proper alignment is guaranteed */
*(int*)(phs->array_buf+phs->maxlen*i)=ival;
phs->array_indicators[i]=0;
}else{
if( SvOK( item ) ){
/* Defined NaN assumed =0 */
*(int*)(phs->array_buf+phs->maxlen*i)=0;
phs->array_indicators[i]=0;
}else{
/* NULL */
phs->array_indicators[i]=1;
}
}
phs->array_lengths[i]=sizeof(int);
if (trace_level >= 3 || dbd_verbose >= 3 ){
PerlIO_printf(
phs->array_indicators[i]=0;
if (trace_level >= 3 || dbd_verbose >= 3 ){
PerlIO_printf(
DBIc_LOGPIO(imp_sth),
"dbd_rebind_ph_number_table(): "
"let (double) array[%d]=%f - NOT NULL\n",
i, val);
}
}else{
if( SvOK( item ) ){
/* Defined NaN assumed =0 */
*(double*)(phs->array_buf+phs->maxlen*i)=0;
phs->array_indicators[i]=0;
if (trace_level >= 2 || dbd_verbose >= 3 ){
STRLEN l;
char *p=SvPV(item,l);
PerlIO_printf(
DBIc_LOGPIO(imp_sth),
"dbd_rebind_ph_number_table(): "
"let (double) array[%d]=\"%s\" =NaN. Set =0 - NOT NULL\n",
i, p ? p : "<NULL>" );
}
}else{
/* NULL */
phs->array_indicators[i]=1;
if (trace_level >= 3 || dbd_verbose >= 3 ){
PerlIO_printf(
DBIc_LOGPIO(imp_sth),
"dbd_rebind_ph_number_table(): "
"let (double) array[%d] NULL\n",
( run in 0.666 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )