From 28e7f59a7b27a7578a31fbdd79e289c536ae0f13 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Thu, 11 Aug 2005 02:08:05 +0000
Subject: [PATCH] Syntax highlighting fix

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index c1d82d6..6c47ff9 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -344,7 +344,7 @@ sub get_faculty_email {
 	open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
 	while($_ = <INS>) {
 	    chomp;
-	    m/"([^"]*)",([^,]*),([^,]*)/;
+	    m/"([^"]*)",([^,]*),([^,]*)/; # "
 	    ($name, $email, $school) = ($1, $2, $3);
 	    $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
 	    $name =~ s/ [A-Z]\.//g;
-- 
2.30.2