From: Tim Pope <code@tpope.net>
Date: Thu, 11 Aug 2005 02:08:05 +0000 (+0000)
Subject: Syntax highlighting fix
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=28e7f59a7b27a7578a31fbdd79e289c536ae0f13

Syntax highlighting fix
---

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;