This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We don't care about "Pragma" vs. "Pragmata"
authorFlorian Ragwitz <rafl@debian.org>
Wed, 21 Dec 2011 18:25:24 +0000 (19:25 +0100)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 21 Dec 2011 18:25:59 +0000 (19:25 +0100)
Porting/corelist-perldelta.pl

index 704a774..a9213c4 100755 (executable)
@@ -9,9 +9,9 @@ use Getopt::Long;
 use Algorithm::Diff;
 
 my %sections = (
-  new     => 'New Modules and Pragmata',
+  new     => 'New Modules and Pragma',
   updated => 'Updated Modules and Pragma',
-  removed => 'Removed Modules and Pragmata',
+  removed => 'Removed Modules and Pragma',
 );
 
 my $deprecated;
@@ -311,8 +311,9 @@ sub do_check {
     $self->_look_for_range($pod,
       sub {
         my ($el) = @_;
-        my $f = $el->[0] =~ /^head(\d)$/ && $el->[2] eq $section;
-        $level = $1 if $f && !$level;
+        my ($heading) = $el->[0] =~ /^head(\d)$/;
+        my $f = $heading && $el->[2] =~ /^\Q$section\E/;
+        $level = $heading if $f && !$level;
         return $f;
       },
       sub {