Author: dylan
Date: 2006-02-27 08:09:34 -0500 (Mon, 27 Feb 2006)
New Revision: 966
Modified:
trunk/perl/server/lib/Haver/Server/Talker.pm
Log:
Hopefully fixing the bug muffin reported.
Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm 2006-02-25 05:58:05 UTC
(rev 965)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm 2006-02-27 13:09:34 UTC
(rev 966)
@@ -158,7 +158,10 @@
$lobby->remove($user->namespace, $user->name);
my %seen;
foreach my $name ($user->channels) {
- my $chan = $lobby->get('channel', $name);
+ my $chan = $lobby->lookup('channel', $name);
+
+ # In case $chan somehow got undefined. I hate
race conditions...
+ next unless $chan;
$user->part($chan);
foreach my $u ($chan->list('user')) {
unless ($seen{ $u->name }++) {
_______________________________________________
Haver-commits mailing list
[email protected]
https://mail.gna.org/listinfo/haver-commits
