X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/67e92e89d4a2f7b9a3a401ea926f97ce445961a5..b88937b3b612eec078920cec65cfef193797f906:/Porting/corelist-perldelta.pl?ds=sidebyside diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl index 022b427..b22c75a 100755 --- a/Porting/corelist-perldelta.pl +++ b/Porting/corelist-perldelta.pl @@ -26,7 +26,7 @@ The part to check the diff wants to be run with a Perl that has an up-to-date L, but needs the outside L. Ideally, the program will be split into two separate programs, one -to generate the text and one to show the diff between the +to generate the text and one to show the diff between the corelist sections of the last perldelta and the next perldelta. =cut @@ -350,7 +350,7 @@ sub do_check { sub { my ($el) = @_; my ($heading) = $el->[0] =~ /^head(\d)$/; - my $f = $heading && $el->[2] =~ /^$section/; + my $f = $heading && $el->[2] =~ /^$section/; $level = $heading if $f && !$level; return $f; },