move storage of seqno for -lp containers to avoid gaps

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 3679fa1e6a8467163265b61537b4fa9f7b7b4c0a..2e416dcb99d5cad1cc38393d5394db51387fb86e 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -20029,7 +20029,6 @@ EOM
 
                     $in_lp_mode  = 1;
                     $space_count = $gnu_position_predictor;
-                    $ris_lp_parent_container->{$last_nonblank_seqno} = 1;
 
                     my $rGS_top             = $rGS->[$max_gnu_stack_index];
                     my $min_gnu_indentation = $rGS_top->[_gs_space_count_];
@@ -20081,6 +20080,7 @@ EOM
                         $gs_object =
                           new_lp_indentation_item( $space_count,
                             $level, $ci_level, $available_space, $align_paren );
+                        $ris_lp_parent_container->{$last_nonblank_seqno} = 1;
                     }
 
                     $rGS->[$max_gnu_stack_index]->[_gs_ci_level_] = $ci_level;