SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Tue Mar 4 12:59:50 CET 2008
Author: shadzik
Date: Tue Mar 4 12:59:49 2008
New Revision: 9565
Modified:
toys/stbr/stbr.tcl
Log:
- fixed for new cvs version
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Tue Mar 4 12:59:49 2008
@@ -57,7 +57,7 @@
proc sendto {spec branch} {
global cvsroot reqbook
if {([string match HEAD $branch])} {set cmd "-N"} {set cmd "-r$branch"}
- if {[catch {exec cvs -d $cvsroot log $cmd SPECS/$spec | awk {/author/{a = $5; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
+ if {[catch {exec cvs -d $cvsroot log $cmd SPECS/$spec | awk {/author/{a = $6; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
set file [open $reqbook r]
gets $file lista
close $file
More information about the pld-cvs-commit
mailing list