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

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/25 18:17:14

Modified files:
        modules/channels: channels.tcl 

Log message:
        Fixed a small bug that was keeping default udef settings from actually 
becoming the default.  erm.  =D

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

Patches:
Index: tcldrop/modules/channels/channels.tcl
diff -u tcldrop/modules/channels/channels.tcl:1.5 
tcldrop/modules/channels/channels.tcl:1.6
--- tcldrop/modules/channels/channels.tcl:1.5   Fri Nov 14 10:58:47 2003
+++ tcldrop/modules/channels/channels.tcl       Tue Nov 25 18:17:14 2003
@@ -1,24 +1,24 @@
 # channels.tcl --
 #
-# $Id: channels.tcl,v 1.5 2003/11/14 15:58:47 fireegl Exp $
+# $Id: channels.tcl,v 1.6 2003/11/25 23:17:14 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
-# 
+#
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
 # as published by the Free Software Foundation; either version 2
 # of the License, or (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with this program (see gpl.txt); if not, write to the
 # Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
02111-1307, USA.
 # Or visit http://www.GNU.Org/licenses/gpl.html
-# 
+#
 # The author of this project can be reached at address@hidden
 # Or can be found on IRC (EFNet or FreeNode) as FireEgl.
 #
@@ -206,6 +206,7 @@
                #        are no longer in use, and discard them.
                array set Channels [read $fid [file size $::chanfile]]
                close $fid
+               SetUdefDefaults
        } else {
                putlog "no chanfile exists..yet."
        }