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

(limited to 'scripts/iMPD.pl')

diff --git a/scripts/iMPD.pl b/scripts/iMPD.pl
index 945a1bf..6078e55 100644
--- a/scripts/iMPD.pl
+++ b/scripts/iMPD.pl
@@ -262,7 +262,7 @@ sub addShufflePlay {
 sub cleanup {
     my ($file) = Irssi::get_irssi_dir."/iMPD.conf";
 
-    open CONF, "> $file";
+    open CONF, ">", $file;
     for my $net (sort keys %SAVE_VARS) {
 	print CONF "$net\t$SAVE_VARS{$net}\n";
 	close CONF;
@@ -489,7 +489,7 @@ print $mpd_help_advanced;
 sub load_settings {
     my ($file) = Irssi::get_irssi_dir."/iMPD.conf";
     
-    open CONF, "< $file";
+    open CONF, "<", $file;
     while (<CONF>) {
 	my($net,$val) = split;
 	if ($net && $val) {
-- 
cgit v1.2.3