From c034d68049c9d22cc13d0b680777cdd307f2eade Mon Sep 17 00:00:00 2001 From: Steve Hancock 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