X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=clones.pl;h=20aecfae044feabb10c3711294a00c6d66c89ed1;hb=dd329bf05f9a50bd10d79e522334761f9785d7ab;hp=5e385959a4b390729152b24c436adf8e91ed7fe4;hpb=00463e42661628d19236d6951afa32315f8f9f32;p=perl%2Fscripts%2Fxchat.git

diff --git a/clones.pl b/clones.pl
index 5e38595..20aecfa 100755
--- a/clones.pl
+++ b/clones.pl
@@ -266,9 +266,9 @@ hook_server 'QUIT', 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 @users{  grep !$servers{$_}, keys %users};
  delete @fetched{grep !$servers{$_}, keys %fetched};