It looks like the problem was introduced when the "SET autocommit" and

"SET search_path"  commands were added to the beginning of the script.

The attatched patch should fix the problem. It probably should be
applied  against the 7.3 and 7.4 branches.

Steven Singer

diff --git a/contrib/dbmirror/DBMirror.pl b/contrib/dbmirror/DBMirror.pl
index e41a45e91628d4b9b7b75ae5c30fd87f9717c0dc..cf32511beb565f59945f09af0eebb415139411b0 100755 (executable)
--- a/contrib/dbmirror/DBMirror.pl
+++ b/contrib/dbmirror/DBMirror.pl
@@ -33,7 +33,7 @@
 # 
 #
 ##############################################################################
-# $Id: DBMirror.pl,v 1.3.2.1 2002/11/06 17:51:40 momjian Exp $ 
+# $Id: DBMirror.pl,v 1.3.2.2 2002/12/05 21:04:14 momjian Exp $ 
 #
 ##############################################################################
 
@@ -128,7 +128,7 @@ sub Main() {
     
   my $setQuery;
   $setQuery = "SET search_path = public";
-  $setResult = $masterConn->exec($setQuery);
+  my $setResult = $masterConn->exec($setQuery);
   if($setResult->resultStatus!=PGRES_COMMAND_OK) { 
     logErrorMessage($masterConn->errorMessage . "\n" . 
                    $setQuery);
@@ -137,7 +137,7 @@ sub Main() {
     
   my $setQuery2;
   $setQuery2 = "SET autocommit TO 'on'";
-  $setResult2 = $masterConn->exec($setQuery2);
+  my $setResult2 = $masterConn->exec($setQuery2);
   if($setResult2->resultStatus!=PGRES_COMMAND_OK) { 
     logErrorMessage($masterConn->errorMessage . "\n" . 
                    $setQuery2);