diff -up sqlgrey-1.7.6/sqlgrey.orig sqlgrey-1.7.6/sqlgrey --- sqlgrey-1.7.6/sqlgrey.orig 2007-08-05 16:41:01.000000000 -0400 +++ sqlgrey-1.7.6/sqlgrey 2008-09-05 11:50:07.000000000 -0400 @@ -827,6 +827,7 @@ sub connectdb($) { $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}], @@ -2447,6 +2448,7 @@ sub main() 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; # Ugly hack to make perl shut up about about "possible typo".