From 016d11cb9646d46996a4e27b640b2cd5f36a93c4 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 22 Dec 2011 18:12:35 -0800
Subject: feature.pl: Use @HintedBundles for generating feature.h
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This variable, added in the previous commit for feature.pm’s sake,
also makes generating constants in feature.h simpler.
---
 regen/feature.pl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'regen')

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;
-- 
cgit v1.2.1