handle the 'Deprecations' section

Author: book

Porting/merge-deltas.pl

@@ -95,6 +95,45 @@ ( $tree, $directive, $pos = 0 )
         splice @$master, next_header_pos( $master, 1, $master_pos ),
           0, $delta->@[ $delta_pos + 1 .. $end_pos ];
     },
+
+    # this one is very specific: 'Module removals' is treated separately
+    deprecations => sub ( $master, $title, $delta ) {
+
+        # find the section in the delta and master
+        my ( $master_pos, $delta_pos ) =
+          map header_pos( $_, 1, $title ),
+          $master, $delta;
+
+        # loop over the =head2 in the section
+        while ( $delta_pos = next_header_pos( $delta, 2, $delta_pos ) ) {
+            my $section_title = $delta->[$delta_pos][2];
+            if ( $section_title eq 'Module removals' ) {
+                $master_pos =    # find the same =head2 in the master
+                  header_pos( $master, 2, $section_title, $master_pos );
+
+                # find the =over in both
+                my ( $master_list_pos, $delta_list_pos ) = (
+                    next_directive_pos( $master, 'over-text', $master_pos ),
+                    next_directive_pos( $delta,  'over-text', $delta_pos )
+                );
+
+                # inject the list from delta into the master
+                push $master->[$master_list_pos]->@*,
+                  splice $delta->[$delta_list_pos]->@*, 2;
+            }
+            else {
+                # find where the =head2 ends
+                my $end_pos = next_header_pos( $delta, 2, $delta_pos )
+                  // next_header_pos( $delta, 1, $delta_pos );
+
+                # inject it at the end of the section
+                $master_pos = next_header_pos( $master, 1, $master_pos );
+                splice @$master, $master_pos, 0,
+                  $delta->@[ $delta_pos .. $end_pos - 1 ];
+            }
+        }
+        continue { ++$delta_pos }    # avoid an infinite loop
+    },
 );
 
 my %ACTION_FOR = (
@@ -104,7 +143,7 @@ ( $tree, $directive, $pos = 0 )
     'Core Enhancements'             => 'head2',
     'Security'                      => 'head2',
     'Incompatible Changes'          => 'head2',
-    'Deprecations'                  => '...',
+    'Deprecations'                  => 'deprecations',
     'Performance Enhancements'      => 'item',
     'Modules and Pragmata'          => 'skip',
     'Documentation'                 => 'skip',
@@ -228,7 +267,6 @@ ($file)
     {
         die "Unexpected section '=head1 $title' in $template_file\n"
           unless exists $ACTION_FOR{$title};
-        die "No handler for '$title'\n" if $ACTION_FOR{$title} eq '...';
         next                            if $ACTION_FOR{$title} eq 'skip';
         $handler{ $ACTION_FOR{$title} }->( $master, $title, $delta );
     }