From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 7 Mar 2021 15:55:54 +0000 (-0800)
Subject: Adjust line length tolerance for welding
X-Git-Tag: 20210402~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b9166cabb5dbc0f388478340b2dc7930431a71af;p=perltidy.git

Adjust line length tolerance for welding
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 444d2175..df29d6d7 100644
--- 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 972949f0..b3a27038 100644
--- 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