fix b1244, do not start -lp under stress
authorSteve Hancock <perltidy@users.sourceforge.net>
Fri, 12 Nov 2021 01:42:00 +0000 (17:42 -0800)
committerSteve Hancock <perltidy@users.sourceforge.net>
Fri, 12 Nov 2021 01:42:00 +0000 (17:42 -0800)
dev-bin/run_convergence_tests.pl.data
lib/Perl/Tidy/Formatter.pm

index 0f4373d4aa34f2d61834e9ab4b5f5825808a53f7..4407e908bc868ead43a6854940e72d4f811f951c 100644 (file)
@@ -8097,6 +8097,63 @@ WriteMakefile(
 --variable-maximum-line-length
 --weld-nested-containers
 
+==> b1244.in <==
+# S1
+     @NVNN_w2 =
+             ( Lampoons, Launders,
+               Leapfrogs, Leaps,
+               Learns, Legitimizes,
+               Levels, Levitates,
+               Liberates, Lightens,
+               Likes,   Liquidates,
+               Loathes, Loosens,
+               Loves,   Lubricates,
+             );
+
+     @NNVN_w3 =
+             ( Unclutters,
+               Unfetters,
+               Unifies,  Unites,
+               Unseats,  Upgrades,
+               Upstages, Uses,
+               Usurps, );
+# S2
+     @NVNN_w2 = ( Lampoons,
+                  Launders,
+                  Leapfrogs,
+                  Leaps,
+                  Learns,
+                  Legitimizes,
+                  Levels,
+                  Levitates,
+                  Liberates,
+                  Lightens,
+                  Likes,
+                  Liquidates,
+                  Loathes,
+                  Loosens,
+                  Loves,
+                  Lubricates,
+     );
+
+     @NNVN_w3 = ( Unclutters,
+                  Unfetters,
+                  Unifies,
+                  Unites,
+                  Unseats,
+                  Upgrades,
+                  Upstages,
+                  Uses,
+                  Usurps,
+     );
+
+==> b1244.par <==
+--continuation-indentation=8
+--ignore-old-breakpoints
+--indent-columns=5
+--line-up-parentheses
+--maximum-line-length=35
+
 ==> b131.in <==
         unless
           ( open( SCORE, "+>>$Score_File" ) )
index 28faa601a68389717a5c457a95ff06be2ef21543..8514480ed9dd28ac6f11ed2ab30d448abcea5c79 100644 (file)
@@ -19959,6 +19959,11 @@ EOM
                     $space_count += $standard_increment;
                 }
 
+                # do not start -lp under stress .. fixes b1244
+                elsif ( !$in_lp_mode && $level > $stress_level + 1 ) {
+                    $space_count += $standard_increment;
+                }
+
                 # otherwise use the space to the first non-blank level change
                 else {