diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-12-21 19:25:07 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2011-12-21 19:25:59 +0100 |
commit | a71535a847ba0844f902bb623916ec018cc19914 (patch) | |
tree | b7eb0cbf7e7e5ae33782dc2c3422382e7550cff4 | |
parent | 493620de4d9e0af289e71b15f864fd411b939b41 (diff) | |
download | perl-a71535a847ba0844f902bb623916ec018cc19914.tar.gz |
Fail if one if the sections we want isn't there
-rwxr-xr-x | Porting/corelist-perldelta.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl index 426e09d2c6..704a774b91 100755 --- 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) { |