Hi: I have a simple script which connects to a few databases. When I run the
script I get the "Out of memory! Callback called exit. END failed--call queue
aborted." error. It runs fine on other similar machines. Below is an example.
As soon as I add the 3rd database connection it starts giving me the error. I
have searched the net and found no answers. Anyone have ideas?
=====
#!/usr/local/bin/perl
use DBI;
use ARS;
$dbname = "impactdata";
$host = "netcool"; $port = 5435;
$username = "postgres"; $password = "password";
$dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port;","$username",
"$password", {AutoCommit => 1});
$server = "netcool";
$username = "Demo"; $password = "password";
($ctrl = ars_Login($server, $username, $password)) ||
die "couldn't allocate control structure";
my $user='netcool'; my $passwd='ool_0307';
my $ORCL="netcool;sid=RMDST;port=1521";
my $dbh_rem = DBI->connect("dbi:Oracle:$ORCL",
$user, $passwd,
{ RaiseError => 1, AutoCommit => 0 }
) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect;
$dbh_rem->disconnect;
========
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
