@ -33,7 +33,7 @@
#
#
#
#
##############################################################################
##############################################################################
# $Id: DBMirror.pl,v 1.4 2002/11/06 17:50:53 momjian Exp $
# $Id: DBMirror.pl,v 1.5 2002/12/05 21:03:51 momjian Exp $
#
#
##############################################################################
##############################################################################
@ -128,7 +128,7 @@ sub Main() {
my $ setQuery ;
my $ setQuery ;
$ setQuery = "SET search_path = public" ;
$ setQuery = "SET search_path = public" ;
$ setResult = $ masterConn - > exec ( $ setQuery ) ;
my $ setResult = $ masterConn - > exec ( $ setQuery ) ;
if ( $ setResult - > resultStatus != PGRES_COMMAND_OK ) {
if ( $ setResult - > resultStatus != PGRES_COMMAND_OK ) {
logErrorMessage ( $ masterConn - > errorMessage . "\n" .
logErrorMessage ( $ masterConn - > errorMessage . "\n" .
$ setQuery ) ;
$ setQuery ) ;
@ -137,7 +137,7 @@ sub Main() {
my $ setQuery2 ;
my $ setQuery2 ;
$ setQuery2 = "SET autocommit TO 'on'" ;
$ setQuery2 = "SET autocommit TO 'on'" ;
$ setResult2 = $ masterConn - > exec ( $ setQuery2 ) ;
my $ setResult2 = $ masterConn - > exec ( $ setQuery2 ) ;
if ( $ setResult2 - > resultStatus != PGRES_COMMAND_OK ) {
if ( $ setResult2 - > resultStatus != PGRES_COMMAND_OK ) {
logErrorMessage ( $ masterConn - > errorMessage . "\n" .
logErrorMessage ( $ masterConn - > errorMessage . "\n" .
$ setQuery2 ) ;
$ setQuery2 ) ;