Fix unintended rename of many various *klist*

bug/266/move-to-usr
Slávek Banko 12 years ago
parent fe115e8f34
commit 62b638d33a

@ -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'})
{

Loading…
Cancel
Save