Fix unintended rename of many various *klist*

1 files changed, 8 insertions, 8 deletions

diff --git a/cvs2cl.pl b/cvs2cl.pl
index e633a5e..7d1f5f0 100644
--- a/cvs2cl.pl
+++ b/cvs2cl.pl
@@ -822,17 +822,17 @@ sub derive_change_log ()
       foreach my $time (sort {$main::a <=> $main::b} (keys %$timehash))
       {
         my $msghash = $timehash->{$time};
-        while (my ($msg,$quntdelist) = each %$msghash)
+        while (my ($msg,$qunklist) = each %$msghash)
         {
  	  my $stamptime = $stamptime{$msg};
           if ((defined $stamptime)
               and (($time - $stamptime) < $Max_Checkin_Duration)
               and (defined $changelog{$stamptime}{$author}{$msg}))
           {
- 	    push(@{$changelog{$stamptime}{$author}{$msg}}, @$quntdelist);
+ 	    push(@{$changelog{$stamptime}{$author}{$msg}}, @$qunklist);
           }
           else {
-            $changelog{$time}{$author}{$msg} = $quntdelist;
+            $changelog{$time}{$author}{$msg} = $qunklist;
             $stamptime{$msg} = $time;
           }
         }
@@ -941,14 +941,14 @@ sub derive_change_log ()
         # We sort here to enable predictable ordering for the testing porpoises
         for my $msg (sort keys %$mesghash)
         {
-          my $quntdelist = $mesghash->{$msg};
+          my $qunklist = $mesghash->{$msg};
 
           ## MJP: 19.xii.01 : Exclude @ignore_tags
           for my $ignore_tag (keys %ignore_tags) {
             next FOOBIE
               if grep($_ eq $ignore_tag, map(@{$_->{tags}},
                                              grep(defined $_->{tags},
-                                                  @$quntdelist)));
+                                                  @$qunklist)));
           }
           ## MJP: 19.xii.01 : End exclude @ignore_tags
 	
@@ -957,10 +957,10 @@ sub derive_change_log ()
             next FOOBIE
               if !grep(exists $show_tags{$_}, map(@{$_->{tags}},
                                                   grep(defined $_->{tags},
-                                                       @$quntdelist)));
+                                                       @$qunklist)));
           }
 
-          my $files               = &pretty_file_list ($quntdelist);
+          my $files               = &pretty_file_list ($qunklist);
           my $header_line;          # date and author
           my $body;                 # see below
           my $wholething;           # $header_line + $body
@@ -1014,7 +1014,7 @@ sub derive_change_log ()
             # performed.  Files which were added have no line change
             # indicator, whereas deleted files have state dead.
             #
-            foreach $qunk ( @$quntdelist )
+            foreach $qunk ( @$qunklist )
             {
               if ( "dead" eq $qunk->{'state'})
               {