Fail if one if the sections we want isn't there

diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl
index 426e09d..704a774 100755 (executable)
--- a/Porting/corelist-perldelta.pl
+++ b/Porting/corelist-perldelta.pl
@@ -207,8 +207,9 @@ sub do_check {
         my ($t, $s) = @{ $_ };
         $self->${\"_parse_${t}_section"}($s)
     } map {
-        my $s = $self->_look_for_section($pod => $sections{$_});
-        $s ? [$_, $s] : $s
+        my $s = $self->_look_for_section($pod => $sections{$_})
+            or die "failed to parse $_ section";
+        [$_, $s];
     } keys %sections;
 
     for my $s (keys %sections) {