This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
feature.pl: Add section headers
authorFather Chrysostomos <sprout@cpan.org>
Fri, 23 Dec 2011 00:37:50 +0000 (16:37 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 17:25:15 +0000 (09:25 -0800)
This commit adds comments that give this file some semblance of
structure.

regen/feature.pl

index b4ad36a..58a4590 100755 (executable)
@@ -15,6 +15,10 @@ BEGIN {
 }
 use strict ;
 
+
+###########################################################################
+# Hand-editable data
+
 # (feature name) => (internal name, used in %^H)
 my %feature = (
     say             => 'say',
@@ -49,7 +53,9 @@ my %feature_bundle = (
                    evalbytes current_sub)],
 );
 
+
 ###########################################################################
+# More data generated from the above
 
 my %UniqueBundles; # "say state switch" => 5.10
 my %Aliases;       #  5.12 => 5.11
@@ -104,13 +110,16 @@ close "perl.h";
 
 
 ###########################################################################
-
+# Open files to be generated
 
 my ($pm, $h) = map {
     open_new($_, '>', { by => 'regen/feature.pl' });
 } 'lib/feature.pm', 'feature.h';
 
 
+###########################################################################
+# Generate lib/feature.pm
+
 while (<DATA>) {
     last if /^FEATURES$/ ;
     print $pm $_ ;
@@ -164,6 +173,10 @@ while (<DATA>) {
 
 read_only_bottom_close_and_rename($pm);
 
+
+###########################################################################
+# Generate feature.h
+
 my $first_bit = sprintf "0x%08x", 1 << $HintShift;
 print $h <<EOH;
 
@@ -231,6 +244,10 @@ EOH
 
 read_only_bottom_close_and_rename($h);
 
+
+###########################################################################
+# Template for feature.pm
+
 __END__
 package feature;