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

diff --git a/perl/sctweb b/perl/sctweb
index f78ca86..c1d82d6 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -91,7 +91,7 @@ $response = $ua->post("$url&tserve_trans_config=astulog.cfg", { tserve_tip_write
 
 $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=" . ("regterm.cfg"||"rgrdterm.cfg")); # Valid terms
 die $response->status_line unless $response->is_success;
-my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
+my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content)); # "
 if(@terms) {
     $opts{school} = 'accd';
 } else {