X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsct6;h=abfede15d0187e7552f5c51600b257b721113678;hp=fde8f7f75d5604370c5dfb199f692ef845b48b7f;hb=4d870833473a3248416d9efa380ebeed7e7fabf8;hpb=75d929866ed2be0d6cf01254c17cc8e2c0cd5959
diff --git a/perl/sct6 b/perl/sct6
index fde8f7f..abfede1 100755
--- a/perl/sct6
+++ b/perl/sct6
@@ -9,7 +9,6 @@
use strict;
use LWP::UserAgent;
use HTML::TableExtract;
-#use Time::Local;
use Date::Calc::Object qw(Day_of_Week Decode_Day_of_Week Decode_Month Week_of_Year Monday_of_Week Day_of_Week_Abbreviation Delta_Days Add_Delta_Days Nth_Weekday_of_Month_Year Gmtime Mktime);
use Date::Calendar::Profiles qw($Profiles);
use Date::Calendar::Year;
@@ -91,7 +90,7 @@ $response = $ua->post("${url}twbkwbis.P_ValLogin", { sid => $opts{SID}, PIN => $
$response = $ua->get("${url}bwskflib.P_SelDefTerm"); # Valid terms
die $response->status_line unless $response->is_success;
-my @terms = grep {s/^