[Cascavel-pm] Res: Res: Res: Res: Duvida $dbh->prepare

[Nelson Ferraz]

Patty Silva wrote:
> Pronto..troquei por  if ( $@ ) {
>    print "Error in the database: $@";
>    exit;
>  }
> 
> e Funcionou

Er... a falha foi minha, pois eu escrevi "if defined $@", quando o
correto seria "if $@".

De acordo com a documentação (perldoc -f eval):

"If there is a syntax error or runtime error, or a "die" statement is
executed, an undefined value is returned by "eval", and $@ is set to the
error message.  If there was no error, $@ is guaranteed to be a null
string."

[]s

Nelson