print $OT "\n};\n";
 
-print $OT <<"EOS";
-
-/*
- * Map for each case kind.
- */
-static const pg_wchar *casekind_map[NCaseKind] =
-{
-   [CaseLower] = case_map_lower,
-   [CaseTitle] = case_map_title,
-   [CaseUpper] = case_map_upper,
-   [CaseFold] = case_map_fold,
-};
-EOS
-
 my @codepoints = keys %simple;
 my $range = make_ranges(\@codepoints, 500);
 my @case_map_lines = range_tables($range);
 
    CASEMAP_SPECIAL,
 };
 
+/*
+ * Map for each case kind.
+ */
+static const pg_wchar *const casekind_map[NCaseKind] =
+{
+   [CaseLower] = case_map_lower,
+   [CaseTitle] = case_map_title,
+   [CaseUpper] = case_map_upper,
+   [CaseFold] = case_map_fold,
+};
+
 static pg_wchar find_case_map(pg_wchar ucs, const pg_wchar *map);
 static size_t convert_case(char *dst, size_t dstsize, const char *src, ssize_t srclen,
                           CaseKind str_casekind, bool full, WordBoundaryNext wbnext,
 
 
 };
 
-/*
- * Map for each case kind.
- */
-static const pg_wchar *casekind_map[NCaseKind] =
-{
-   [CaseLower] = case_map_lower,
-   [CaseTitle] = case_map_title,
-   [CaseUpper] = case_map_upper,
-   [CaseFold] = case_map_fold,
-};
-
 /*
  * Used by case_index() to map a codepoint to an index that can be used in any
  * of the following arrays: case_map_lower, case_map_title, case_map_upper,