diff options
| -rw-r--r-- | bin/sequences.reset | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/sequences.reset b/bin/sequences.reset index f0fc4b7f2..2dc1d3bb2 100644 --- a/bin/sequences.reset +++ b/bin/sequences.reset @@ -13,7 +13,11 @@ foreach my $table ( dbdef->tables ) { ##next unless $default =~ /nextval/; #print "$local\n"; - my $statement = "select setval('${table}_${primary_key}_seq', ( select max($primary_key) from $table ) )\n"; + my $statement = "select setval('${table}_${primary_key}_seq', ( select max($primary_key) from $table ) )"; + + print "$statement;\n"; + next; + my $sth = dbh->prepare($statement) or do { warn dbh->errstr. " preparing $statement\n"; next; |