Changeset 0e8a0fc for perl/modules/IRC/lib/BarnOwl/Module/IRC
- Timestamp:
- Oct 3, 2009, 5:34:19 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- ecee82f
- Parents:
- 9f5e847
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
r744769e r0e8a0fc 204 204 my $self = shift; 205 205 delete $BarnOwl::Module::IRC::ircnets{$self->alias}; 206 for my $k (keys %BarnOwl::Module::IRC::channels) { 207 my @conns = grep {$_ ne $self} @{$BarnOwl::Module::IRC::channels{$k}}; 208 if(@conns) { 209 $BarnOwl::Module::IRC::channels{$k} = \@conns; 210 } else { 211 delete $BarnOwl::Module::IRC::channels{$k}; 212 } 213 } 206 214 BarnOwl::remove_dispatch($self->{FD}); 207 215 BarnOwl::admin_message('IRC',
Note: See TracChangeset
for help on using the changeset viewer.