Syntax highlighting fix

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index c1d82d6d8220e0bf1fe3b7c0da92a82ad35d9299..6c47ff946e0290280c5649f8962b45f23bca0dc8 100755 (executable)
--- 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;