From c034d68049c9d22cc13d0b680777cdd307f2eade Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 6 Jan 2023 16:33:39 -0800
Subject: [PATCH] fix excessive recombine iterations, issue c171
---
lib/Perl/Tidy/Formatter.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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 );
--
2.39.5