Atualizei para a última versão, e começou a dar o seguinte erro:

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']

O código que gerou o erro:

while (my $r = $res->next) {
    if (
        $r->PRECO != $r->$tmp_book_obj->PRECO or
        $r->VALOR_PARCELA != $r->$tmp_book_obj->VALOR_PARCELA
    ) {
        $r->PRECO($r->$tmp_book_obj->PRECO);
        $r->NUMERO_PARCELAS($r->$tmp_book_obj->NUMERO_PARCELAS);
        $r->VALOR_PARCELA($r->$tmp_book_obj->VALOR_PARCELA);
    }
    $r->ATUALIZADO(3);
    $r->DATA_ATUALIZACAO(\'sysdate');
    $r->update;
}

Fiz downgrade para DBIx::Class v0.08192, voltou para funcionar o_0
Por onde começo a desenvolver o patch?

ABS()
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: [email protected]
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Responder a