From: Tim Pope <code@tpope.net>
Date: Sun, 21 Aug 2005 18:32:20 +0000 (+0000)
Subject: Bug fix
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=9d75f01621e435863f90de252a2b2c17c60f564d

Bug fix
---

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);
 }