Syntax highlighting correction

diff --git a/perl/sct6 b/perl/sct6
index abfede15d0187e7552f5c51600b257b721113678..e6c66602149a2e1c1dbe0f524d0ac43d3655a781 100755 (executable)
--- 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;
        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;
            ($name, $email, $school) = ($1, $2, $3);
            $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
            $name =~ s/ [A-Z]\.//g;