From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 19 Nov 2021 02:21:43 +0000 (-0800)
Subject: move storage of seqno for -lp containers to avoid gaps
X-Git-Tag: 20211029.01~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cf21fc2478ac843359c2ceabd232a5289152819a;p=perltidy.git

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 3679fa1e..2e416dcb 100644
--- 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;