parens_value_list : '(' VALUE(s /,/) ')'
{ $item[2] }
-parens_word_list : '(' WORD(s /,/) ')'
+
+parens_word_list : '(' name_with_opt_quotes(s /,/) ')'
{ $item[2] }
field_size : '(' num_range ')' { $item{'num_range'} }
create_index : CREATE /index/i
-default_val : DEFAULT /(\d+|'[^']*'|\w+\(.*?\))|\w+/
+default_val : DEFAULT /(\d+|'[^']*'|\w+\(.*\))|\w+/
{
my $val = defined $item[2] ? $item[2] : '';
$val =~ s/^'|'$//g;
name => $idata->{'name'},
type => uc $idata->{'type'},
fields => $idata->{'fields'},
- ) or die $table->error;
+ ) or die $table->error . ' ' . $table->name;
}
for my $cdata ( @{ $tdata->{'constraints'} || [] } ) {