From 55e10f5aeb6d0559518623a432263d4a73d7614b Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 24 Oct 2014 23:01:30 +0200
Subject: Fix perlcritic issues for all scripts starting with s to z

---
 scripts/wa.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'scripts/wa.pl')

diff --git a/scripts/wa.pl b/scripts/wa.pl
index d26908f..46d59cd 100644
--- a/scripts/wa.pl
+++ b/scripts/wa.pl
@@ -1,3 +1,7 @@
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
 $VERSION = "2.3.1";
 %IRSSI = (
     authors     => "Matti 'qvr' Hiljanen, Piotr 'Pieta' Szymanski",
@@ -44,7 +48,6 @@ $VERSION = "2.3.1";
 #
 
 use Socket;
-use strict;
 
 my($waport, $wahost, $wapass, $di);
 
@@ -55,15 +58,15 @@ sub getstat($$$) {
    if (socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'))) {
         if (connect(SOCK, sockaddr_in($port, inet_aton($host)))) {
               unless (send(SOCK, $data, 0)) {
-              Irssi::print("Unable to write to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+              Irssi::print("Unable to write to the socket: $!", MSGLEVEL_CLIENTERROR);
               return;
               }
         } else {
-              Irssi::print("Unable to connect to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+              Irssi::print("Unable to connect to the socket: $!", MSGLEVEL_CLIENTERROR);
               return;
         }
         } else {
-        Irssi::print("Connection to $host failed: $!", Irssi::MSGLEVEL_CLIENTERROR);
+        Irssi::print("Connection to $host failed: $!", MSGLEVEL_CLIENTERROR);
         return;
         }
 
-- 
cgit v1.2.3