Adjust line length tolerance for welding

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 444d2175e196fea7b69d7337a388bd851e9a7818..df29d6d7b124fe09a4fb3b53466bc19208c0b84c 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7120,7 +7120,9 @@ EOM
         if ( !$do_not_weld_rule ) {
             my $excess = $excess_length_to_K->($Kinner_opening);
 
-            if ( $excess > 0 ) { $do_not_weld_rule = 3 }
+            # Use '>=' instead of '=' here to fix cases b995 b998 b1000
+            # b1001 b1007 b1008 b1009 b1010 b1011 b1012 b1016 b1017 b1018 
+            if ( $excess >= 0 ) { $do_not_weld_rule = 3 }
             if (DEBUG_WELD) {
                 $Msg .=
 "RULE 3 test: excess length to K=$Kinner_opening is $excess ( > 0 ?) \n";

diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 972949f05d56125d02d93dd25629edc7d930077f..b3a270387d0d78e2afdaf9a28589a77f9eb5060f 100644 (file)
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,15 @@
 
 =over 4
 
+=item B<Adjust line length tolerance for welding>
+
+A minor tolerance adjustment was needed to fix some edge welding cases.
+
+This fixes cases
+b995 b998 b1000 b1001 b1007 b1008 b1009 b1010 b1011 b1012 b1016 b1017 b1018 
+
+7 Mar 2021.
+
 =item B<Fix problem with -vtc=n and outdented long lines>
 
 Random testing produced an issue with -vtc=1 and an outdented long