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/xauth.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'scripts/xauth.pl')

diff --git a/scripts/xauth.pl b/scripts/xauth.pl
index 989e3ef..430500d 100644
--- a/scripts/xauth.pl
+++ b/scripts/xauth.pl
@@ -344,7 +344,7 @@ sub read_users() {
         # Lets reset @users so we can call this as a function.
         @users = ();            
                         
-        if (!(open XUSERS, "<$x_passfile")) {
+        if (!(open XUSERS, "<", $x_passfile)) {
                 &create_users;
         };
        	&putlog("Running checks on the userfile.") if ($verbose > 1);
@@ -379,7 +379,7 @@ sub create_users() {
 
         &putlog("Creating basic userfile in $x_passfile. Edit File.");
         
-        if(!(open XUSERS, ">$x_passfile")) {
+        if(!(open XUSERS, ">", $x_passfile)) {
                &putlog("Unable to create file $x_passfile");
         }
 
@@ -394,7 +394,7 @@ sub create_users() {
 
 sub create_chans() {
         &putlog("Creating basic channelfile in $x_chanfile. Edit File.");
-        if(!(open NICKCHANS, ">$x_chanfile")) {
+        if(!(open NICKCHANS, ">", $x_chanfile)) {
                 &putlog("Unable to create file $x_chanfile");
         }
 
@@ -417,7 +417,7 @@ sub read_chans() {
         # Lets reset @users so we can call this as a function.
         @chans = ();
 
-        if (!(open NICKCHANS, "<$x_chanfile")) {
+        if (!(open NICKCHANS, "<", $x_chanfile)) {
                 create_chans;
         };
        	&putlog("Running checks on the channelfile.") if ($verbose > 1);
-- 
cgit v1.2.3