Problems changing from 1.30 to 1.42

[Pedro Anisio]

Guys,

    I'm migrating my system from DBI 1.30 to 1.42 but I found onte little problem, 
this piece off code used to worked at 1.30 but now it simple don't do this update, 
unless I pass the update values directlty on the $query. What is causing this? Anyone 
can help-me?


#!/usr/bin/perl

use DBI;

$query   = "update mensagem set mens_stat = ? where mens_codigo = ? and mens_stat = ?";
#$query   = "update mensagem set mens_stat = 2 where mens_codigo = 343520291 and 
mens_stat = 1"; <---- This way works

@param = (2, 343520291, 1);

   $sth = $dbh->prepare($query);

   if (!$sth->execute(@param))
   {
      $msg  = $sth->errstr;
      $msg  =~ s/\n|\r/ /g;
      $msg .= "[$query], ".join(",",@param);
   }


print "$msg\n";

$sth->finish;
$dbh->disconnect;

exit;

Abra�os,

Pedro An�sio




* iBest. Internet gr�tis com qualidade de internet paga.

Clique abaixo para conectar-se � internet gratuitamente:
http://discador.ibest.com.br/mail.html