<meta http-equiv="content-type" content="text/html; charset=utf-8"><div><div>Atualizei para a última versão, e começou a dar o seguinte erro:</div><div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><font class="Apple-style-span" face="'courier new', monospace" size="1">ORA-00932: inconsistent datatypes: expected - got BLOB (DBD ERROR: error possibly near <*> indicator at char 107 in 'UPDATE LIVRARIA_35 SET ATUALIZADO = :p1, DATA_ATUALIZACAO = sysdate, VALOR_PARCELA = :p2 WHERE ( ISBN13 = :<*>p3 )') [for Statement "UPDATE LIVRARIA_35 SET ATUALIZADO = ?, DATA_ATUALIZACAO = sysdate, VALOR_PARCELA = ? WHERE ( ISBN13 = ? )" with ParamValues: :p1=3, :p2='5.48', :p3='9788525045744']</font></div>

<div><br></div><div>O código que gerou o erro:</div><div><br></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">while (my $r = $res->next) {</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">    if (</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">        $r->PRECO != $r->$tmp_book_obj->PRECO or</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">        $r->VALOR_PARCELA != $r->$tmp_book_obj->VALOR_PARCELA</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">    ) {</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">        $r->PRECO($r->$tmp_book_obj->PRECO);</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">        $r->NUMERO_PARCELAS($r->$tmp_book_obj->NUMERO_PARCELAS);</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">        $r->VALOR_PARCELA($r->$tmp_book_obj->VALOR_PARCELA);</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">    }</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">    $r->ATUALIZADO(3);</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">    $r->DATA_ATUALIZACAO(\'sysdate');</font></div><div><font class="Apple-style-span" size="1" face="'courier new', monospace">    $r->update;</font></div>

<div><font class="Apple-style-span" size="1" face="'courier new', monospace">}</font></div></div><div><br></div><div>Fiz downgrade para DBIx::Class v0.08192, voltou para funcionar o_0</div><div>Por onde começo a desenvolver o patch?</div>

<div><br></div>ABS()<br>