We don't care about "Pragma" vs. "Pragmata"

1 files changed, 5 insertions, 4 deletions

diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl
index 704a774b91..a9213c4802 100755
--- a/Porting/corelist-perldelta.pl
+++ b/Porting/corelist-perldelta.pl
@@ -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 {