diff options
author | Slávek Banko <slavek.banko@axis.cz> | 2013-02-19 04:52:06 +0100 |
---|---|---|
committer | Slávek Banko <slavek.banko@axis.cz> | 2013-02-19 04:52:06 +0100 |
commit | 62b638d33ac1f6967de3ef0c53645f32ce707016 (patch) | |
tree | 91955428c4548c7efcdef1ee2a5372e5f6f51347 | |
parent | fe115e8f34c02711d2977b63027a9af45947e845 (diff) | |
download | libtqt-perl-62b638d33ac1f6967de3ef0c53645f32ce707016.tar.gz libtqt-perl-62b638d33ac1f6967de3ef0c53645f32ce707016.zip |
Fix unintended rename of many various *klist*
-rw-r--r-- | cvs2cl.pl | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -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'}) { |