This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
feature.pl: Gen %feature_bundle from %UniqueBundles
authorFather Chrysostomos <sprout@cpan.org>
Thu, 22 Dec 2011 18:05:16 +0000 (10:05 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 17:25:13 +0000 (09:25 -0800)
commit88da30d732bdf35367c4008b31d9d07c1022434a
treeb9bbdc89329350f8af6ae9e844c3e389a2a894cf
parent11b275493edbf41bb61a1176850d2f49ab83398a
feature.pl: Gen %feature_bundle from %UniqueBundles

%UniqueBundles was added for generating constants in feature.h, but
we can use it for feature.pm’s %feature_bundle as well, simplify-
ing the code.

This eliminates this piece of code in feature.pm, spelling it
out longhand:

# Each of these is the same as the previous bundle
for (12,13,14,16) {
    $feature_bundle{"5.$_"} = $feature_bundle{"5.".($_-1)}
}

While that code might be neat, it would make the generation code
unduly complex.  (It was designed for hand-editing anyway.)
lib/feature.pm
regen/feature.pl