SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun May 13 04:02:18 2007
New Revision: 8508

Modified:
   toys/stbr/stbr.tcl
Log:
- shortest spec is actually two characters long not three (ex. pl.spec)


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun May 13 04:02:18 2007
@@ -19,7 +19,7 @@
 set specs ""; append specs $second; append specs " "; append specs [lrange $arg 2 end]
 set rspecs ""
 if {!([string match th-ready $first] || [string match th-test $first])} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
-if {([string length $second]<=2)} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
+if {([string length $second]<2)} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
 foreach spec $specs {
 if {!([string match *.spec $spec])} { append spec ".spec"}
 lappend rspecs $spec