Fix: Typage non compatible

This commit is contained in:
Laurent Destailleur 2006-01-14 23:54:19 +00:00
parent 782a38d2be
commit 5e2af21525

View File

@ -166,7 +166,7 @@ foreach my $file (keys %filelist) {
}
# enum -> check
if (/(\w*)\s+enum\(((?:['"]\w+['"]\s*,)+['"]\w+['"])\)(.*)$/i) { # enum handling
if (/([\w\"]*)\s+enum\s*\(((?:['"]\w+['"]\s*,)+['"]\w+['"])\)(.*)$/i) {
$enum_column=$1;
$enum_datafield{$enum_column}=$2; # 'abc','def', ...
my $suite=$3;