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

Syntax highlighting correction
---

diff --git a/perl/sct6 b/perl/sct6
index abfede1..e6c6660 100755
--- a/perl/sct6
+++ b/perl/sct6
@@ -299,7 +299,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;