Re: Trapping mSQL errors with Perl

[Jochen Wiedmann]

Joe Robuck wrote:

>         I'm trying to error trap mSQL errors in Perl with the following block of
> code:
> 
> $sql = "select * from table where field = value";
> eval{
>         $sth = $dbh->prepare($sql);
>         $sth->execute;
> };
> if ($@){
>         print "Error";
> }
> else{
>         print "Success";
>         }
> }

You need to set the RaiseError attribute when connecting, as in

	$dbh = DBI->connect("DBI:mSQL:test", undef, undef,
			    {RaiseError => 1});