tokhash: correct duplicate-token test

This commit is contained in:
H. Peter Anvin 2007-09-10 18:59:01 +00:00
parent d555a64a7f
commit 309a8ba340

View File

@ -95,7 +95,7 @@ while (defined($line = <TD>)) {
} elsif ($line =~ /^([a-z0-9_-]+)/) {
$token = $1;
if (defined($tokens{$reg})) {
if (defined($tokens{$token})) {
die "Duplicate definition: $token\n";
}
$tokens{$token} = scalar @tokendata;