diff options
| author | bw1 | 2017-04-01 17:30:41 +0200 |
|---|---|---|
| committer | bw1 | 2017-04-01 17:30:41 +0200 |
| commit | 7c018c5e88d5a22256a14651a7545c47d977c6a9 (patch) | |
| tree | 89cc0d547e6869738a28eaff7c10675994b0ec8f /scripts | |
| parent | b636c6b6a95af412ac1ecceff7f6ee9ad0749841 (diff) | |
| download | scripts.irssi.org-7c018c5e88d5a22256a14651a7545c47d977c6a9.tar.bz2 | |
[kicks][crit] my ($var1, $var2)
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/kicks.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/kicks.pl b/scripts/kicks.pl index af9f567..76e87ea 100644 --- 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 |
