X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=clones.pl;h=72e1092fc834fb58a09267552976f453fa4fe199;hb=ffce0ac1da463a72159ea12236e1be85d9361383;hp=421bbd40116d471ec8687358794db64dc0c3b70e;hpb=b4283e2e4f29df44da0a1cac902af46736377c97;p=perl%2Fscripts%2Fxchat.git

diff --git a/clones.pl b/clones.pl
index 421bbd4..72e1092 100755
--- a/clones.pl
+++ b/clones.pl
@@ -3,13 +3,13 @@ package Xchat::VPIT::Clones;
 use strict;
 use warnings;
 
-use Scalar::Util qw/dualvar/;
+use Scalar::Util qw<dualvar>;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
-use Xchat::XPI::Events qw/delay/;
+use Xchat::XPI::Events qw<delay>;
 
 use constant {
  JOIN_DELAY => 1000,
@@ -51,11 +51,11 @@ sub host {
 sub add {
  my ($nick, $host, $serv, $chan) = @_;
  my $hosts = $users{$serv}{$chan};
- $users{$serv}{$chan} = $hosts = { } if not defined $hosts;
+ $users{$serv}{$chan} = $hosts = { } unless defined $hosts;
  my $clones = $hosts->{$host};
  $nick = PRE . $nick . POST;
  if (defined $clones) {
-  if ((index $clones, $nick) < $[) {
+  if (index($clones, $nick) < $[) {
    $hosts->{$host} = dualvar int($clones) + 1, $clones . $nick;
   }
  } else {
@@ -231,7 +231,7 @@ hook_print 'Disconnected', sub {
  my %servers = map { $_->{server} => 1 }
                 grep { $_->{flags} & 9 && not $_->{flags} & 2 }
                  get_list 'channels';
- delete $users{$_} for grep { !$servers{$_} } keys %users;
+ delete $users{$_}   for grep { !$servers{$_} } keys %users;
  delete $fetched{$_} for grep { !$servers{$_} } keys %fetched;
  return EAT_NONE;
 };
@@ -255,7 +255,8 @@ sub nick_cb {
 hook_print $_, \&nick_cb for ('Change Nick', 'Your Nick Changing');
 
 hook_command 'CLSCAN', sub {
- my ($serv, $chan) = (get_info('server'), lc get_info('channel'));
+ my $serv = get_info 'server';
+ my $chan = lc get_info 'channel';
  if (!$fetched{$serv}{$chan} && !fetch($serv, $chan)) {
   print $ph "Data still not available\n";
  } elsif (!scan($serv, $chan)) {