# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1455511371 -7200
# Node ID 9f7eb4db99b44a473a2c826eec7ea7657d7507cd
# Parent  f2adb44ea251ad9aa6df6747461556a2c679bb4b
Add sanity check for class ID data.

diff -r f2adb44ea251 -r 9f7eb4db99b4 parsedata.pl
--- a/parsedata.pl	Wed Jan 13 08:20:43 2016 +0200
+++ b/parsedata.pl	Mon Feb 15 06:42:51 2016 +0200
@@ -296,7 +296,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{5,6}[A-Z]*|[A-Z0-9]{6,8})$/);
+    $cgrouped = 1 if (defined($$cdata[1]) && $$cdata[1] =~ /^([A-Z]\d{5,6}[A-Z]*|[A-Z0-9]{6,8})$/);
     if ($cgrouped)
     {
       my $cdata1 = [];