fix b1257, rare instability in math formatting

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 0e6a822ba52062f99ffa669186c7e9c7d9eedfa7..b73404ef8adbe0d60f2dc163752ccd25dc98a264 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -8274,6 +8274,24 @@ printf
 --paren-vertical-tightness-closing=2
 --weld-nested-containers
 
+==> b1257.in <==
+# S1
+    my $hour_angle
+      = 2 * PI
+      * ( $hour / 12 + $min / ( 12 * 60 ) )
+      - PI
+      / 2;
+
+# S2
+    my $hour_angle
+      = 2 * PI
+      * ( $hour / 12 + $min / ( 12 * 60 ) )
+      - PI / 2;
+
+==> b1257.par <==
+--break-before-all-operators
+--maximum-line-length=50
+
 ==> b131.in <==
         unless
           ( open( SCORE, "+>>$Score_File" ) )

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 9825dfddf3838657e5dc68d084c407e8aab17ef8..3679fa1e6a8467163265b61537b4fa9f7b7b4c0a 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -3740,6 +3740,7 @@ EOM
             # strength on both sides of a blank is the same
             if ( $type eq 'b' && $last_type ne 'b' ) {
                 $bond_strength_to_go[$i] = $bond_strength_to_go[ $i - 1 ];
+                $nobreak_to_go[$i] ||= $nobreak_to_go[ $i - 1 ]; # fix for b1257
                 next;
             }
 
@@ -15628,7 +15629,7 @@ sub break_equals {
                 }
 
                 # honor no-break's
-                next if ( $bs >= NO_BREAK - 1 );
+                ## next if ( $bs >= NO_BREAK - 1 );  # removed for b1257
 
                 # remember the pair with the greatest bond strength
                 if ( !$n_best ) {