next_directive_pos now stops at the next head section

book · book · commit 54a978c8c6da · 2025-10-12T23:27:46.000+02:00
diff --git a/Porting/merge-deltas.pl b/Porting/merge-deltas.pl
@@ -34,6 +34,7 @@ ( $tree, $directive, $pos = 0 )
     while ( $pos < @$tree ) {
         next
           unless ref( $tree->[$pos] ) eq 'ARRAY';
+        last if $tree->[$pos][0] =~ /\A=head[1-4]\z/;
         next unless $tree->[$pos][0] eq $directive;
         return $pos;
     }

Original file line number	Diff line number	Diff line change
`@@ -34,6 +34,7 @@ ( $tree, $directive, $pos = 0 )`
`34`	`34`	`while ( $pos < @$tree ) {`
`35`	`35`	`next`
`36`	`36`	`unless ref( $tree->[$pos] ) eq 'ARRAY';`
	`37`	`+ last if $tree->[$pos][0] =~ /\A=head[1-4]\z/;`
`37`	`38`	`next unless $tree->[$pos][0] eq $directive;`
`38`	`39`	`return $pos;`
`39`	`40`	`}`