adjust strength of ^^

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 24c6a20040bba74a511e350da1244def874f65ff..e402ef25e5f1139539acc2d5d3777a959e4b6324 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -4646,10 +4646,11 @@ EOM
         $right_bond_strength{'&&'} = NOMINAL;
         $left_bond_strength{'&&'}  = $left_bond_strength{'||'} + 0.1;
 
-        # set strength of ^^ a little lower than ||. See git157.
-        # Note that 0 ^^ 0 || 1 = 0 ^^ (0 || 1) is true
+        # set strength of ^^ above && and ||. See git157. Note that:
+        # "1 || 0 ^^ 0 || 1" = true, so ^^ is stronger than ||
+        # "1 && 0 ^^ 1 = true,       so ^^ is stronger than &&
         $right_bond_strength{'^^'} = NOMINAL;
-        $left_bond_strength{'^^'}  = $left_bond_strength{'||'} - 0.1;
+        $left_bond_strength{'^^'}  = $left_bond_strength{'||'} + 0.15;
 
         $left_bond_strength{';'}  = VERY_STRONG;
         $right_bond_strength{';'} = VERY_WEAK;