--- sqlgrey-1.7.4/sqlgrey.orig 2006-08-02 21:33:43.000000000 -0500 +++ sqlgrey-1.7.4/sqlgrey 2006-12-12 15:13:07.000000000 -0600 @@ -815,6 +815,7 @@ $self->mylog('dbaccess', 3, "Read_hosts: ".join(', ', @read_hosts)); #Setting up cluster db's + no warnings 'once'; $DBIx::DBCluster::CLUSTERS = { "$self->{sqlgrey}{db_host}" => { 'WRITE_HOSTS' => [$self->{sqlgrey}{db_host}], @@ -2410,6 +2411,7 @@ no warnings 'uninitialized'; #Perl will spew warn's if running DBI only if ($dflt{db_cluster} eq 'on') { #if loglevel >= 4, enable debugging for DBCluster + no warnings 'once'; $DBIx::DBCluster::DEBUG = ($dflt{'loglevel'}>3)?1:0; if ((defined $HOSTNAME) && (defined $dflt{db_cleanup_hostname})) {