candidates: some topics have capital letters in their names

candidates

@@ -15,29 +15,33 @@ sub merged {
 	return $count;
 }
 
-my ($topic, $topic_date);
+my ($topic, $topic_date, $last);
 my (@candidate);
 
 while (<>) {
-	if (/^\* ([a-z][a-z]\/[-a-z0-9_]+) \(([-0-9]{10})\) \d+ commit/) {
-		$topic = $1;
+	if (/^\* ([a-z][a-z]\/[-a-zA-Z0-9_]+) \(([-0-9]{10})\) \d+ commit/) {
+		$topic = $last = $1;
 		$topic_date = $2;
 		next;
 	}
 	if (defined $topic) {
 		if (/^  \(merged to 'next' on ([-0-9]{10}) at/) {
-			push @candidate, [$topic, $1, $topic_date];
+			push @candidate, [$topic, $1, $topic_date, ""];
 			next;
 		}
 		$topic = undef;
 		$topic_date = undef;
 	}
+	if (defined $last && @candidate && $candidate[-1][0] eq $last) {
+		if (/Will merge to 'master'/i) {
+			$candidate[-1][3] = "*";
+		}
+	}
 }
 
 for $topic (sort { ($a->[1] cmp $b->[1]) || ($a->[2] cmp $b->[2]) } @candidate) {
 	my $count = merged($topic->[0], 'master');
 	if ($count) {
-		print "$topic->[1] $topic->[2] ($count)	$topic->[0]\n";
+		print "$topic->[1] $topic->[2] ($count)	$topic->[3]$topic->[0]\n";
 	}
 }
-