Fix error in bind_param for target to source.

diff --git a/Bucardo.pm b/Bucardo.pm
index d98d1aa3f71c0b2014ff1760a59f32340e8fd74b..b7b65d3aae5f399cd25cc40a69ee5796532d336c 100644 (file)
--- a/Bucardo.pm
+++ b/Bucardo.pm
@@ -4019,7 +4019,7 @@ sub start_kid {
                     for (@{$g->{binarycols}}) {
                         $sth{target}{$g}{insertrow}->bind_param($_ + $g->{pkcols}, undef, {pg_type => DBD::Pg::PG_BYTEA});
                         $sth{target}{$g}{updaterow}->bind_param($_, undef, {pg_type => DBD::Pg::PG_BYTEA});
-                        $sth{source}{$g}{insertrow}->bind_param($_+1, undef, {pg_type => DBD::Pg::PG_BYTEA});
+                        $sth{source}{$g}{insertrow}->bind_param($_ + $g->{pkcols}, undef, {pg_type => DBD::Pg::PG_BYTEA});
                         $sth{source}{$g}{updaterow}->bind_param($_, undef, {pg_type => DBD::Pg::PG_BYTEA});
                     }
                 }