- $dbh->do( "SELECT setval( '$seq',
- ( SELECT max($primary_key) FROM $table ) );" )
- or die $dbh->errstr;
+
+ my $sql = "SELECT setval( '$seq',
+ ( SELECT max($primary_key) FROM $table ) );";
+
+ #warn $col->default. " $seq\n$sql\n";
+ $dbh->do( $sql ) or die $dbh->errstr;