Committing the inserts helps.

diff --git a/bin/add-history-records.pl b/bin/add-history-records.pl
index 18c473d..722de47 100755 (executable)
--- a/bin/add-history-records.pl
+++ b/bin/add-history-records.pl
@@ -40,9 +40,10 @@ foreach my $table (@tables) {
 
     unless ($h_rec) {
       my $h_insert_rec = $rec->_h_statement('insert', 1);
-      #print $h_insert_rec . "\n";
+      print $h_insert_rec . "\n";
       $dbh->do($h_insert_rec);
       die $dbh->errstr if $dbh->err;
+      $dbh->commit or die $dbh->errstr;
       $cnt++;
     }