From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 9 Sep 2020 00:57:56 +0000 (-0700)
Subject: fixed typo in variable name
X-Git-Tag: 20200907.01~27
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=521becd5d39044c8c8a6dac8c51460ebf1cea57d;p=perltidy.git

fixed typo in variable name
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5ff66dec..94d3b2d7 100644
--- 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_];