Mercurial > hg > lukkari

comparison parsedata.pl @ 156:c0c69b3b1f7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix parsing of certain IDs.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 09 Feb 2015 02:01:44 +0200
parents 1a5994671dcf
children 62687fee6f1c
comparison
equal deleted inserted replaced
155:241467521661 156:c0c69b3b1f7d
335 if ($tid) 335 if ($tid)
336 { 336 {
337 $maxDays = $cday + 1 if ($cday + 1 > $maxDays); 337 $maxDays = $cday + 1 if ($cday + 1 > $maxDays);
338 338
339 # Grouped, if there is another class ID in second slot 339 # Grouped, if there is another class ID in second slot
340 $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{6}[A-Z]*$/); 340 $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{5,6}[A-Z]*$/);
341 if ($cgrouped) 341 if ($cgrouped)
342 { 342 {
343 my $cdata1 = []; 343 my $cdata1 = [];
344 my $cdata2 = []; 344 my $cdata2 = [];
345 for (my $i = 0; $i < length($cdata); $i += 2) 345 for (my $i = 0; $i < length($cdata); $i += 2)