Author: shadzik
Date: Sat Nov 7 22:06:07 2009
New Revision: 10960
Modified:
toys/stbr/stbr.tcl
Log:
- default branch is HEAD in pub:stat
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sat Nov 7 22:06:07 2009
@@ -173,9 +173,12 @@
putserv "privmsg $chan :$nick: I'm now in maintenance mode (reason:
$reason). Only owners may perform real actions."
return 0
}
-if {[llength [lrange $arg 0 end]] < 2} {putserv "privmsg $chan :$nick: Usage:
!stat spec branch";return 0}
+if {[llength [lrange $arg 0 end]] < 2} {putserv "privmsg $chan :$nick: Usage:
!stat spec \[BRANCH\]";return 0}
set spec [lindex $arg 0]
set branch [lindex $arg 1]
+if {[string length $branch]==0} {
+ set branch "HEAD"
+}
if {!([string match *.spec $spec])} {
set pkg $spec
append spec ".spec"
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
