diff --git a/contrib/dbmirror/DBMirror.pl b/contrib/dbmirror/DBMirror.pl
index e86cbb8a56a9dcbe673c5e49bcc64639603f779d..a442502ba4e5c022f779ea5367c5dca47474faeb 100755
--- a/contrib/dbmirror/DBMirror.pl
+++ b/contrib/dbmirror/DBMirror.pl
@@ -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;
   $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);