Sergey V. Stashinskas said:
> If these lines are commented out then script is working ok.
>
> -----Original Message-----
> From: <[EMAIL PROTECTED]>
> To: "Sergey V. Stashinskas "
> <[EMAIL PROTECTED]>,<[EMAIL PROTECTED]> Date: Fri, 27 Jun
> 2003 16:39:12 +0300
> Subject: RE: Problem with PerlTransHandler
>
>>
>> Have you tried to comment out the 2 DBI lines like this:
>>
>> #my $dbh = DBI->connect('dbi:mysql:db', 'user', 'pswd');
>> #$dbh->disconnect;
Can't find your original post, however try doing something like:
$dbh->disconnect if ref($dbh);
or:
if (ref $dbh) {
$dbh->disconnect;
else {
## CHECK LOGS for this
print STDERR "\n Failed to connect \n";
};
Cheers,
Raf
