[Tkabber-dev] r1365 - branches/xml-import-export/plugins/roster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Feb 1 03:23:52 MSK 2008


Author: kostix
Date: 2008-02-01 03:23:51 +0300 (Fri, 01 Feb 2008)
New Revision: 1365

Modified:
   branches/xml-import-export/plugins/roster/annotations.tcl
Log:
plugins/roster/annotations.tcl: Small fix against possibly undefined return value
in the [more_recent] proc.


Modified: branches/xml-import-export/plugins/roster/annotations.tcl
===================================================================
--- branches/xml-import-export/plugins/roster/annotations.tcl	2008-01-31 01:38:22 UTC (rev 1364)
+++ branches/xml-import-export/plugins/roster/annotations.tcl	2008-02-01 00:23:51 UTC (rev 1365)
@@ -103,6 +103,8 @@
 	return [expr {$mdate > $notes($connid,mdate,$jid)}]
     } elseif {[info exists notes($connid,cdate,$jid)]} {
 	return [expr {$cdate > $notes($connid,cdate,$jid)}]
+    } else {
+	return 1
     }
 }
 



More information about the Tkabber-dev mailing list