BUG #1691: Bug in DBMirror

The following bug has been logged online:

Bug reference: 1691
Logged by: Yury Don
Email address: yura(at)vpcit(dot)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