Attached is a 1 line bug fix for dbmirror that was submitted.

jconway · jconway · commit cd4fd672ddb8 · 2004-07-02T00:58:09.000Z
It fixes a bug where some transactions could be dropped when writing
mirrored SQL statements to files.
-- Steven Singer
diff --git a/contrib/dbmirror/DBMirror.pl b/contrib/dbmirror/DBMirror.pl
@@ -33,7 +33,7 @@
 # 
 #
 ##############################################################################
-# $PostgreSQL: pgsql/contrib/dbmirror/DBMirror.pl,v 1.9 2004/04/22 03:48:38 momjian Exp $ 
+# $PostgreSQL: pgsql/contrib/dbmirror/DBMirror.pl,v 1.10 2004/07/02 00:58:09 joe Exp $ 
 #
 ##############################################################################
 
@@ -249,6 +249,8 @@ ()
       if($::slaveInfo->{'status'} eq 'FileOpen')
       {
 	  close ($::slaveInfo->{'TransactionFile'});
+	   $::slaveInfo->{"status"} = 'FileClosed';
+
       }
       elsif($::slaveInfo->{'status'} eq 'DBOpen')
       {

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@`
`33`	`33`	`#`
`34`	`34`	`#`
`35`	`35`	`##############################################################################`
`36`		`-# $PostgreSQL: pgsql/contrib/dbmirror/DBMirror.pl,v 1.9 2004/04/22 03:48:38 momjian Exp $`
	`36`	`+# $PostgreSQL: pgsql/contrib/dbmirror/DBMirror.pl,v 1.10 2004/07/02 00:58:09 joe Exp $`
`37`	`37`	`#`
`38`	`38`	`##############################################################################`
`39`	`39`
`@@ -249,6 +249,8 @@ ()`
`249`	`249`	`if($::slaveInfo->{'status'} eq 'FileOpen')`
`250`	`250`	`{`
`251`	`251`	`close ($::slaveInfo->{'TransactionFile'});`
	`252`	`+ $::slaveInfo->{"status"} = 'FileClosed';`
	`253`	`+`
`252`	`254`	`}`
`253`	`255`	`elsif($::slaveInfo->{'status'} eq 'DBOpen')`
`254`	`256`	`{`