fix excessive recombine iterations, issue c171

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index f0b1a2680ea45705b845f48b32980ef489f928cd..9e98880c0dc7bf13101cf1288376b58e4108115e 100644 (file)
--- 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 );