From 69a6096b8b4e0b94e3ba327801a120be2d446636 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
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/autoop.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'scripts/autoop.pl')

diff --git a/scripts/autoop.pl b/scripts/autoop.pl
index 7891bce9..413f5e17 100644
--- a/scripts/autoop.pl
+++ b/scripts/autoop.pl
@@ -1,8 +1,9 @@
 # /AUTOOP <*|#channel> [<nickmasks>]
 
 use Irssi;
+use strict;
 
-my %opnicks, %temp_opped;
+my (%opnicks, %temp_opped);
 
 sub cmd_autoop {
 	my ($data) = @_;
@@ -12,7 +13,7 @@ sub cmd_autoop {
 		if (!%opnicks) {
 			Irssi::print("Usage: /AUTOOP <*|#channel> [<nickmasks>]");
 			Irssi::print("No-one's being auto-opped currently.");
-			return 1;
+			return;
 		}
 
 		Irssi::print("Currently auto-opping in channels:");
@@ -25,7 +26,7 @@ sub cmd_autoop {
 				Irssi::print("$channel: $masks");
 			}
 		}
-		return 1;
+		return;
 	}
 
 	if ($masks eq "") {
@@ -39,17 +40,16 @@ sub cmd_autoop {
 	} else {
 		Irssi::print("$channel: Now auto-opping: $masks");
 	}
-	return 1;
 }
 
 sub autoop {
 	my ($channel, $masks, @nicks) = @_;
-	my $server, $nickrec;
+	my ($server, $nickrec);
 
 	$server = $channel->{server};
 	foreach $nickrec (@nicks) {
-		$nick = $nickrec->{nick};
-		$host = $nickrec->{host};
+		my $nick = $nickrec->{nick};
+		my $host = $nickrec->{host};
 
                 if (!$temp_opped{$nick} &&
 		    $server->masks_match($masks, $nick, $host)) {
-- 
cgit v1.2.3