From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 7 Jan 2023 00:33:39 +0000 (-0800)
Subject: fix excessive recombine iterations, issue c171
X-Git-Tag: 20221112.04~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c034d68049c9d22cc13d0b680777cdd307f2eade;p=perltidy.git

fix excessive recombine iterations, issue c171
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index f0b1a268..9e98880c 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -17914,8 +17914,8 @@ sub break_equals {
         # are produced which would look better if they were combined.
         # That's the task of this routine.
 
-        # do nothing under extreme stress
-        return if ( $high_stress_level < 1 );
+        # do nothing under extreme stress; use <= 2 for c171
+        return if ( $high_stress_level <= 2 );
 
         my $nmax_start = @{$ri_end} - 1;
         return if ( $nmax_start <= 0 );