X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=6c47ff946e0290280c5649f8962b45f23bca0dc8;hp=c1d82d6d8220e0bf1fe3b7c0da92a82ad35d9299;hb=28e7f59a7b27a7578a31fbdd79e289c536ae0f13;hpb=4d870833473a3248416d9efa380ebeed7e7fabf8

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;