Mercurial > hg > lukkari
changeset 192:9f7eb4db99b4 default
Add sanity check for class ID data.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 15 Feb 2016 06:42:51 +0200 |
parents | f2adb44ea251 |
children | 16ce445c499a |
files | parsedata.pl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 = [];