On Tue, May 20, 2014 at 01:51:44PM +0400, Yonghua Peng wrote:
> Hi,
>
> I have resolved the problem by adding a PrintError => 0 when creating the
> $dbh object.
>
> my $success = try {
> $dbh = DBI->connect("dbi:mysql:database=$db;host=$host;port=$port",
> $user, $passwd, {RaiseError=>1,PrintError=>0} )
> or croak $DBI::errstr;
> 1;
> } catch {
> _write_log($_);
> return undef;
> }; if ($success) {
> ...
> }
>
Youghua
Thank you for posting an interesting problem and the solution you found to it.
Regards
lesleyb
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
