[kicks][crit] my ($var1, $var2)

diff --git a/scripts/kicks.pl b/scripts/kicks.pl
index af9f56790c279c069b89cf7a15b31149becd4257..76e87ea96230d80d519374c012b14198dc55f9ab 100644 (file)
--- a/scripts/kicks.pl
+++ b/scripts/kicks.pl
@@ -94,7 +94,7 @@ sub initialize {
             next if /^\s*#/;
 
             chomp;
-            (my $key, my $reasons) = /^(\S+)\s+(.+)\s*$/ or next;
+            my ($key, $reasons) = /^(\S+)\s+(.+)\s*$/ or next;
 
             if ($reasons =~ /\`([^\s]+).*?\`/) {
                 $kickreasons{$key} = "$reasons";
@@ -145,7 +145,7 @@ sub get_a_reason {
 }
 
 sub cmd_realkick {
-    (my $data, my $server, my $channel, my $cmd) = @_;
+    my ($data, $server, $channel, $cmd) = @_;
     my $reasons = "default";
 
     return if not $server