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

(limited to 'scripts/keepnick.pl')

diff --git a/scripts/keepnick.pl b/scripts/keepnick.pl
index 181dc23..5027ef1 100644
--- a/scripts/keepnick.pl
+++ b/scripts/keepnick.pl
@@ -81,7 +81,7 @@ sub load_nicks {
     local(*CONF);
     
     %keepnick = ();
-    open CONF, "< $file";
+    open CONF, "<", $file;
     while (<CONF>) {
 	my($net,$nick) = split;
 	if ($net && $nick) {
@@ -105,7 +105,7 @@ sub save_nicks {
     
     return if $auto && !Irssi::settings_get_bool('keepnick_autosave');
     
-    open CONF, "> $file";
+    open CONF, ">", $file;
     for my $net (sort keys %keepnick) {
 	print CONF "$net\t$keepnick{$net}\n";
 	$count++;
-- 
cgit v1.2.3