Make MAX_FEATURE_LEN reflect reality

unicode_strings was not the longest string.  We can determine it auto-
matically, now that this macro is in a generated file.

1 files changed, 6 insertions, 2 deletions

diff --git a/regen/feature.pl b/regen/feature.pl
index 44861a2adf..20cfd4fcf1 100755
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -220,10 +220,14 @@ print $h <<'EOH';
 	   & HINT_LOCALIZE_HH)						  \
 	    && Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name)))
 /* The longest string we pass in.  */
-#define MAX_FEATURE_LEN (sizeof("unicode_strings")-1)
-
 EOH
 
+my $longest_internal_feature_name = longest values %feature;
+print $h <<EOL;
+#define MAX_FEATURE_LEN (sizeof("$longest_internal_feature_name")-1)
+
+EOL
+
 for (
     sort { length $a <=> length $b } keys %feature
 ) {