summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSlávek Banko <slavek.banko@axis.cz>2013-02-19 04:52:06 +0100
committerSlávek Banko <slavek.banko@axis.cz>2013-02-19 04:52:06 +0100
commit62b638d33ac1f6967de3ef0c53645f32ce707016 (patch)
tree91955428c4548c7efcdef1ee2a5372e5f6f51347
parentfe115e8f34c02711d2977b63027a9af45947e845 (diff)
downloadlibtqt-perl-62b638d33ac1f6967de3ef0c53645f32ce707016.tar.gz
libtqt-perl-62b638d33ac1f6967de3ef0c53645f32ce707016.zip
Fix unintended rename of many various *klist*
-rw-r--r--cvs2cl.pl16
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'})
{