From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 16 Jan 2020 23:27:02 +0000 (-0800)
Subject: adjusted xor line break for git#19
X-Git-Tag: 20200619~141
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fc90700cd403594842b65ff4ed3e31c8f3fc1fa0;p=perltidy.git

adjusted xor line break for git#19
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index be2b9df9..faa0f5e7 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -12404,11 +12404,11 @@ sub terminal_type_K {
         $left_bond_strength{'and'}  = VERY_WEAK - 0.01;
         $left_bond_strength{'or'}   = VERY_WEAK - 0.02;
         $left_bond_strength{'err'}  = VERY_WEAK - 0.02;
-        $left_bond_strength{'xor'}  = NOMINAL;
+        $left_bond_strength{'xor'}  = VERY_WEAK - 0.01;
         $right_bond_strength{'and'} = NOMINAL;
         $right_bond_strength{'or'}  = NOMINAL;
         $right_bond_strength{'err'} = NOMINAL;
-        $right_bond_strength{'xor'} = STRONG;
+        $right_bond_strength{'xor'} = NOMINAL;
 
         #---------------------------------------------------------------
         # Bond Strength BEGIN Section 2.
@@ -16412,8 +16412,10 @@ sub sync_token_K {
                           unless $old_breakpoint_to_go[$iend_1];
                     }
 
-                    # handle leading 'and'
-                    elsif ( $tokens_to_go[$ibeg_2] eq 'and' ) {
+                    # handle leading 'and' and 'xor'
+                    elsif ($tokens_to_go[$ibeg_2] eq 'and'
+                        || $tokens_to_go[$ibeg_2] eq 'xor' )
+                    {
 
                         # Decide if we will combine a single terminal 'and'
                         # after an 'if' or 'unless'.