18 lines
818 B
Diff
18 lines
818 B
Diff
--- 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})) {
|