Mercurial > hg > lukkari

changeset 80:4faf9956741b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix parsing of some class IDs.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 24 Oct 2012 08:55:49 +0300
parents 7dd647a01fb6
children 8501f1b9bba3
files parsedata.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/parsedata.pl	Wed Oct 24 08:25:12 2012 +0300
+++ b/parsedata.pl	Wed Oct 24 08:55:49 2012 +0300
@@ -331,7 +331,7 @@
     $maxDays = $cday + 1 if ($cday + 1 > $maxDays);
 
     # Grouped, if there is another class ID in second slot
-    $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{6}$/);
+    $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{6}[A-Z]*$/);
     if ($cgrouped)
     {
       my $cdata1 = [];