fixed bug in some unused code for ternary operators

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index cba1e5b25f2484958f22551a662739a47357a438..43dbb47331c95c01394661d86882732837116bb2 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -2385,10 +2385,10 @@ sub respace_tokens {
             # These are not yet used but could be useful
             else {
                 if ( $token eq '?' ) {
-                    $K_opening_ternary->{$type_sequence} = $KK;
+                    $K_opening_ternary->{$type_sequence} = $KK_new;
                 }
                 elsif ( $token eq ':' ) {
-                    $K_closing_ternary->{$type_sequence} = $KK;
+                    $K_closing_ternary->{$type_sequence} = $KK_new;
                 }
                 else {
                     # shouldn't happen