diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 18:12:35 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:16 -0800 |
| commit | 016d11cb9646d46996a4e27b640b2cd5f36a93c4 (patch) | |
| tree | 31c16c402338be21627add8d22685760317d7be3 /regen/feature.pl | |
| parent | ada44f8c3c4de3fe8e773d68e8d77390202c4e2d (diff) | |
| download | perl-016d11cb9646d46996a4e27b640b2cd5f36a93c4.tar.gz | |
feature.pl: Use @HintedBundles for generating feature.h
This variable, added in the previous commit for feature.pm’s sake,
also makes generating constants in feature.h simpler.
Diffstat (limited to 'regen/feature.pl')
| -rwxr-xr-x | regen/feature.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index a6896fe030..8e11f990fa 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -213,14 +213,12 @@ print $h <<EOH; #define HINT_FEATURE_SHIFT $HintShift -#define FEATURE_BUNDLE_DEFAULT 0 EOH my $count; -for (sort values %UniqueBundles) { - (my $key = $_) =~ y/.//d; - next if $key =~ /\D/; - print $h "#define FEATURE_BUNDLE_$key ", ++$count, "\n"; +for (@HintedBundles) { + (my $key = uc) =~ y/.//d; + print $h "#define FEATURE_BUNDLE_$key ", $count++, "\n"; } print $h <<EOH; |