diff --git a/bin/schema b/bin/schema index 16c6176..eaebff8 100644 --- a/bin/schema +++ b/bin/schema @@ -58,9 +58,11 @@ foreach my $table ( keys %{$data} ) { foreach my $row ( @{$data->{$table}} ) { foreach my $col ( keys %{$row} ) { + # TODO: this first evaluation may be okay to remove. + # it was originally added as a failsafe to ensure INTEGER was + # protected from being overwritten, but have since added better + # checking before setting TEXT. # if we've already set the type to INTEGER, skip evaluating it again. - # using the next set of evaluations below can override the INTEGER - # if the last col value in the list is empty string. if ( exists $schema->{$table}{$col} && $schema->{$table}{$col} eq 'INTEGER' ) { next;