package SQL::Translator::Parser::MySQL;
# -------------------------------------------------------------------
-# $Id: MySQL.pm,v 1.6 2002-11-22 03:03:40 kycl4rk Exp $
+# $Id: MySQL.pm,v 1.7 2002-11-23 01:26:56 kycl4rk Exp $
# -------------------------------------------------------------------
# Copyright (C) 2002 Ken Y. Clark <kclark@cpan.org>,
# darren chamberlain <darren@cpan.org>
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/;
$DEBUG = 1 unless defined $DEBUG;
use Data::Dumper;
my $size; # field size, applicable only to non-set fields
my $list; # set list, applicable only to sets (duh)
- if ( uc $type eq 'SET' ) {
+ if ( uc($type) =~ /^(SET|ENUM)$/ ) {
$size = undef;
$list = $item[2][0];
}
key : /key/i | /index/i
-table_option : /[^\s;]+/
+table_option : /[^\s;]*/
{
$return = { split /=/, $item[1] }
}