This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fail if one if the sections we want isn't there
authorFlorian Ragwitz <rafl@debian.org>
Wed, 21 Dec 2011 18:25:07 +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 426e09d..704a774 100755 (executable)
@@ -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) {