be sure Klast is undef if Kfirst is undef

not a bug, but could be confusing when code is updated

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index d6f00b039f7d8ab3c9128112e17684edadc5abe7..507c146ade8e3a4d1d813dd8d9657fe9c9308dbd 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -6070,7 +6070,7 @@ EOM
         my $tee_output;
 
         my $Klimit = $self->[_Klimit_];
-        my $Kfirst;
+        my ( $Kfirst, $Klast );
 
         # Handle line of non-code
         if ( $line_type ne 'CODE' ) {
@@ -6103,6 +6103,7 @@ EOM
 
                 # update Klimit for added tokens
                 $Klimit = @{$rLL} - 1;
+                $Klast  = $Klimit;
 
             } ## end if ( $jmax >= 0 )
             else {
@@ -6130,7 +6131,7 @@ EOM
         } ## end if ( $line_type eq 'CODE')
 
         # Finish storing line variables
-        $line_of_tokens->{_rK_range} = [ $Kfirst, $Klimit ];
+        $line_of_tokens->{_rK_range} = [ $Kfirst, $Klast ];
         $self->[_Klimit_] = $Klimit;
         my $rlines = $self->[_rlines_];
         push @{$rlines}, $line_of_tokens;