From d84f1e1808b3252af83e4963eccfd1e4f19c5326 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 22:54:13 +0200
Subject: Fix perlcritic issues for all scripts starting with e to l

---
 scripts/extaway.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts/extaway.pl')

diff --git a/scripts/extaway.pl b/scripts/extaway.pl
index 78e8392..cc1a495 100644
--- a/scripts/extaway.pl
+++ b/scripts/extaway.pl
@@ -35,7 +35,7 @@ my ($oldnick, $t_away);
 
 sub init {
 	# verifying if settings file exists
-	if (!(open xa_settings, "<$xa_confile")) {
+	if (!(open xa_settings, q{<}, $xa_confile)) {
 		putlog("No config file: /xahelp for help");
 		return 0;
 	};
@@ -135,7 +135,7 @@ sub xa_add {
 	# Adding the keyword and the reason in the config file
 	# may create double entries...
 	my($kw, $reason) = @_;
-	if(!(open xa_settings, ">>$xa_confile")) {
+	if(!(open xa_settings, q{>>}, $xa_confile)) {
 		&putlog("Unable to open file $xa_confile");
 	}
 	print xa_settings "$kw:$reason\n";
@@ -146,7 +146,7 @@ sub xa_add {
 sub xa_save {
 	# save the temp infos (might correct the double entries)
 	my ($data,$server,$channel) = @_;
-	if(!(open xa_settings, ">$xa_confile")) {
+	if(!(open xa_settings, q{>}, $xa_confile)) {
 		&putlog("Unable to create file $xa_confile");
 	}
 	print xa_settings "bnick:$infos{'bnick'}\n";
-- 
cgit v1.2.3