From c19465dda3979158521f8b9f467fac2b07875c04 Mon Sep 17 00:00:00 2001
From: Dave Cross <davidc@broadbean.com>
Date: Fri, 5 Feb 2016 14:29:22 +0000
Subject: [PATCH] split() takes a regex, dammit!

---
 chart | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chart b/chart
index dc3a008..45be9e7 100755
--- a/chart
+++ b/chart
@@ -40,7 +40,7 @@ while (<>) {
   chomp;
   my ($line) = split /#/;
   next unless $line && $line =~ /\S/;
-  my @person = split ',', $line;
+  my @person = split /,/, $line;
   if (@person < 3) {
     warn "Invalid record: $_\n";
     next;