From 521becd5d39044c8c8a6dac8c51460ebf1cea57d Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 8 Sep 2020 17:57:56 -0700
Subject: [PATCH] fixed typo in variable name

---
 lib/Perl/Tidy/Formatter.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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_];
-- 
2.39.5