X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=opers.pl;h=87a01c42d1b7c5e8bfa5e3d4b0b7ae011f9bda9c;hb=dd329bf05f9a50bd10d79e522334761f9785d7ab;hp=875abc9e63910213abd32ffce06082b96d62a67b;hpb=1a7e1b0385a3fc38a3ae0926d05dd1a14dac17fe;p=perl%2Fscripts%2Fxchat.git

diff --git a/opers.pl b/opers.pl
index 875abc9..87a01c4 100755
--- a/opers.pl
+++ b/opers.pl
@@ -51,9 +51,9 @@ hook_server '352', sub {
 };
 
 hook_print 'Disconnected', sub {
- my %servers = map { $_->{server} => 1 }
-                grep { $_->{flags} & 9 and not($_->{flags} & 2) }
-                 get_list 'channels';
+ my %servers;
+ $servers{$_->{server}} = 1 for grep +($_->{flags} & 0b1011) == 0b1001,
+                                 get_list 'channels';
 
  delete @opers{grep !$servers{$_}, keys %opers};