[Tcldrop/CVS] tcldrop/modules/users users.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/03 21:37:40

Modified files:
        modules/users  : users.tcl 

Log message:
        Fixed a small bug in matchattr.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/users/users.tcl.diff?tr1=1.9&tr2=1.10&r1=text&r2=text

Patches:
Index: tcldrop/modules/users/users.tcl
diff -u tcldrop/modules/users/users.tcl:1.9 tcldrop/modules/users/users.tcl:1.10
--- tcldrop/modules/users/users.tcl:1.9 Mon Jun 30 02:25:05 2003
+++ tcldrop/modules/users/users.tcl     Mon Nov  3 21:37:40 2003
@@ -1,6 +1,6 @@
 # users.tcl --
 #
-# $Id: users.tcl,v 1.9 2003/06/30 06:25:05 fireegl Exp $
+# $Id: users.tcl,v 1.10 2003/11/04 02:37:40 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -110,7 +110,7 @@
 # Checks $handle for $flags, $channel is optional.
 proc ::tcldrop::users::matchattr {handle flags {channel {}}} {
        foreach a [binds matchattr] {
-               foreach {type flags mask count proc} $a {}
+               foreach {type bindsflags mask count proc} $a {}
                if {[catch { $proc $handle $flags $channel } val]} {
                        putlog "Error in script: $proc: $val"
                        puterrlog "$::errorInfo"