BUG #1691: Bug in DBMirror

The following bug has been logged online:

Bug reference:      1691
Logged by:          Yury Don
Email address:      yura@vpcit.ru
PostgreSQL version: 8.0.3
Operating system:   Linux (Debian)
Description:        Bug in DBMirror
Details:

DBMirror doesn't mirror changes in sequences.
I've executed query
select nextval('public."demand_id_seq"')
on master database and when run DBMirror.pl, I got an error

Error sending query  411241 to db
select setval('public."demand_id_seq"',2) at ./DBMirror.pl line 771.

I suppose an error is in function sendQueryToSlaves - resultStatus compares
only with PGRES_COMMAND_OK but query like "select setval(...)"
returns tuples, so it must be compared with PGRES_TUPLES_OK
I've changed line 699 in DBMirror.pl from
unless($queryResult->resultStatus == PGRES_COMMAND_OK) {
to
unless($queryResult->resultStatus == PGRES_COMMAND_OK or
$queryResult->resultStatus == PGRES_TUPLES_OK) {
and now dbmirror works fine