skip pg_ tables also (ewww, showing up in reverse-engineered schema)

diff --git a/bin/create-history-tables b/bin/create-history-tables
index 8d419d2..39248bf 100755 (executable)
--- a/bin/create-history-tables
+++ b/bin/create-history-tables
@@ -18,7 +18,7 @@ my $schema = dbdef();
 #false laziness w/fs-setup
 my @tables = scalar(@ARGV)
                ? @ARGV
 #false laziness w/fs-setup
 my @tables = scalar(@ARGV)
                ? @ARGV

-               : grep { ! /^h_/ } $schema->tables;
+               : grep { ! /^(h|pg)_/ } $schema->tables;

 foreach my $table ( @tables ) {
   next if grep { /^h_$table/ } $schema->tables;
   warn "creating history table for $table\n";
 foreach my $table ( @tables ) {
   next if grep { /^h_$table/ } $schema->tables;
   warn "creating history table for $table\n";