summaryrefslogtreecommitdiff
path: root/regen
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-12-22 18:12:35 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-12-24 09:25:16 -0800
commit016d11cb9646d46996a4e27b640b2cd5f36a93c4 (patch)
tree31c16c402338be21627add8d22685760317d7be3 /regen
parentada44f8c3c4de3fe8e773d68e8d77390202c4e2d (diff)
downloadperl-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')
-rwxr-xr-xregen/feature.pl8
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;