This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
493620d
)
Fail if one if the sections we want isn't there
author
Florian Ragwitz
<rafl@debian.org>
Wed, 21 Dec 2011 18:25:07 +0000
(19:25 +0100)
committer
Florian Ragwitz
<rafl@debian.org>
Wed, 21 Dec 2011 18:25:59 +0000
(19:25 +0100)
Porting/corelist-perldelta.pl
patch
|
blob
|
blame
|
history
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) {