diff options
| -rw-r--r-- | feature.h | 2 | ||||
| -rwxr-xr-x | regen/feature.pl | 8 |
2 files changed, 7 insertions, 3 deletions
@@ -24,7 +24,7 @@ & 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) +#define MAX_FEATURE_LEN (sizeof("evalbytes")-1) #define FEATURE_SAY_IS_ENABLED \ ( \ 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 ) { |