summaryrefslogtreecommitdiff
path: root/contrib/dbmirror/clean_pending.pl
diff options
context:
space:
mode:
authorBruce Momjian <bruce@momjian.us>2002-10-18 18:41:22 +0000
committerBruce Momjian <bruce@momjian.us>2002-10-18 18:41:22 +0000
commitaa4c702eac936964649f905741b4a99f4b489200 (patch)
tree517d3c28aa3d28eb95b19c8676c940b5cefe2031 /contrib/dbmirror/clean_pending.pl
parentfb9bc342fffc157d6ca4b635aeeaccb3c1370b91 (diff)
downloadpostgresql-aa4c702eac936964649f905741b4a99f4b489200.tar.gz
Update /contrib for "autocommit TO 'on'".
Create objects in public schema. Make spacing/capitalization consistent. Remove transaction block use for object creation. Remove unneeded function GRANTs.
Diffstat (limited to 'contrib/dbmirror/clean_pending.pl')
-rwxr-xr-xcontrib/dbmirror/clean_pending.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/contrib/dbmirror/clean_pending.pl b/contrib/dbmirror/clean_pending.pl
index 2729288177..a74ea24700 100755
--- a/contrib/dbmirror/clean_pending.pl
+++ b/contrib/dbmirror/clean_pending.pl
@@ -16,7 +16,7 @@
# GNU General Public License for more details.
#
##############################################################################
-# $Id: clean_pending.pl,v 1.1 2002/06/23 21:58:08 momjian Exp $
+# $Id: clean_pending.pl,v 1.2 2002/10/18 18:41:19 momjian Exp $
##############################################################################
@@ -69,6 +69,10 @@ unless($dbConn->status == PGRES_CONNECTION_OK) {
printf("Can't connect to database\n");
die;
}
+my $setresult = $dbConn->exec("SET autocommit TO 'on'");
+unless($setresult->resultStatus == PGRES_COMMAND_OK) {
+ die $dbConn->errorMessage;
+}
my $result = $dbConn->exec("BEGIN");
unless($result->resultStatus == PGRES_COMMAND_OK) {
die $dbConn->errorMessage;