fixed typo in variable name

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5ff66dec7fed8336d9b31885324425ccc37111fb..94d3b2d757043357c416058018e1dda8da35b01a 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -4027,7 +4027,7 @@ sub weld_cuddled_blocks {
                 }
 
                 # ..unless it is a comment
-                if ( defined($Ko) && $rLL->[$Kon]->[_TYPE_] ne '#' ) {
+                if ( defined($Kon) && $rLL->[$Kon]->[_TYPE_] ne '#' ) {
                     my $dlen =
                       $rLL->[$Kon]->[_CUMULATIVE_LENGTH_] -
                       $rLL->[ $Ko - 1 ]->[_CUMULATIVE_LENGTH_];