Don't lowercase the entries in legal_keywords.

diff --git a/globals.pl b/globals.pl
index 915c0bc1866f8e74c413bda057cb9bfcaae19ca1..e6b48521b68a97c0cbb6a6f1b93f6cbb41cff263 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -483,9 +483,9 @@ sub GenerateVersionTable {
     SendSQL("SELECT id, name FROM keyworddefs ORDER BY name");
     while (MoreSQLData()) {
         my ($id, $name) = FetchSQLData();
+        push(@::legal_keywords, $name);
         $name = lc($name);
         $::keywordsbyname{$name} = $id;
-        push(@::legal_keywords, $name);
     }
     print FID GenerateCode('@::legal_keywords');
     print FID GenerateCode('%::keywordsbyname');