use strict;
use DBI;
-use DBIx::DBSchema 0.21;
+use DBIx::DBSchema 0.26;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;
my $sql = "SELECT setval( '$seq',
( SELECT max($primary_key) FROM $table ) );";
- warn $col->default. " $seq\n$sql\n";
+ #warn $col->default. " $seq\n$sql\n";
$dbh->do( $sql ) or die $dbh->errstr;
}