From 69a6096b8b4e0b94e3ba327801a120be2d446636 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 16 Jul 2001 20:22:45 +0000 Subject: added "use strict" for all scripts, made some small changes. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1639 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- scripts/autorejoin.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'scripts/autorejoin.pl') diff --git a/scripts/autorejoin.pl b/scripts/autorejoin.pl index 75bac90d..bbbb0ed8 100644 --- a/scripts/autorejoin.pl +++ b/scripts/autorejoin.pl @@ -6,6 +6,7 @@ use Irssi; use Irssi::Irc; +use strict; sub event_rejoin_kick { my ($server, $data) = @_; @@ -14,8 +15,8 @@ sub event_rejoin_kick { return if ($server->{nick} ne $nick); # check if channel has password - $chanrec = $server->channel_find($channel); - $password = $chanrec->{key} if ($chanrec); + my $chanrec = $server->channel_find($channel); + my $password = $chanrec->{key} if ($chanrec); # We have to use send_raw() because the channel record still # exists and irssi won't even try to join to it with command() -- cgit v1.2.3