X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsct6;h=cb3fe0b19bc274d7e64b34176b4fb65020494570;hp=0cd6ccc5751367b0b14fb2a6fcb60d8237e9df45;hb=9d75f01621e435863f90de252a2b2c17c60f564d;hpb=3d7a488a5a1332fc77130b0e9e34a24b722eda89

diff --git a/perl/sct6 b/perl/sct6
index 0cd6ccc..cb3fe0b 100755
--- a/perl/sct6
+++ b/perl/sct6
@@ -316,7 +316,7 @@ if ($arg eq "-g") {
     do_xml_grades(@ARGV);
 } elsif ($arg eq "-t") {
     do_transcripts;
-} elsif ($arg eq "-x" || $arg = "-s" || 1) {
+} elsif ($arg eq "-x" || $arg eq "-s" || 1) {
     do_xml_schedule(@ARGV);
 }