remove overly-verbose debugging for now
authorivan <ivan>
Thu, 12 Jun 2003 13:50:59 +0000 (13:50 +0000)
committerivan <ivan>
Thu, 12 Jun 2003 13:50:59 +0000 (13:50 +0000)
bin/fix-sequences

index 1ef7bd6..2ff89d3 100755 (executable)
@@ -55,7 +55,7 @@ foreach my $table ( @tables ) {
   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;
 
 }