die $DBI::errstr;
>while (($dbname) = $stmt->fetchrow()) { print "$dbname\n"; }
>warn $DBI::errstr if $DBI::err;
>die "fetch error: " . $DBI::errstr if $DBI::err;
>$stmt->finish() || die "can't close cursor";
>$dbh->disconnect() || die
B: ENTWICKL auf Maschine: abbaentwickel.orgdv
> DBI handle cleared whilst still active during global destruction.
[snip]
As mod_perl and Apache don't seem to be involved, would this question
be better asked on a DBI list?
73,
Ged.
uot;$dbname\n"; }
warn $DBI::errstr if $DBI::err;
die "fetch error: " . $DBI::errstr if $DBI::err;
$stmt->finish() || die "can't close cursor";
$dbh->disconnect() || die "cant't log off Oracle";
# Perl script End ##
which puts the following