view release on metacpan or  search on metacpan

dbdimp.sc  view on Meta::CPAN

                *(int *)var->sqldata = (int)SvIV(value);
        }
        else
        {
            var->sqllen = sizeof(IV);
            Renew(var->sqldata, var->sqllen, char);

            if (imp_sth->ing_empty_isnull && ((SvPOK(value) && (SvCUR(value) == 0)) || !looks_like_number(value)))
	        {
	    	    if (dbis->debug >= 2)
		            PerlIO_printf(DBILOGFP, "### DBD::Ingres::dbd_bind_ph(%d) NaN using NULL\n", param_no);

		        force_null  = 1;
            }
            else if (SvOK(value))
                *(IV *)var->sqldata = SvIV(value);
        }

        var->sqltype = IISQ_INT_TYPE;

        break;
    case 2: /* float */
        var->sqltype = IISQ_FLT_TYPE;
        var->sqllen = sizeof(double);

        Renew(var->sqldata, var->sqllen, char);


        if (imp_sth->ing_empty_isnull && ((SvPOK(value) && (SvCUR(value) == 0)) || !looks_like_number(value)))
	    {
	        if (dbis->debug >= 2)
	            PerlIO_printf(DBILOGFP, "### DBD::Ingres::dbd_bind_ph(%d) NaN using NULL\n", param_no);
	    
            force_null  = 1;
	    }
        else if (SvOK(value))
            *(double *)var->sqldata = (double)SvNV(value);

        break;
    case 3: /* string */
        {
            STRLEN len;