From 2329fe260d3393c6bcbc868cb3f7a33d324b1910 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 20:34:00 +0200
Subject: Fix perlcritic issues for all scripts starting with b,c,d

---
 scripts/connectcmd.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts/connectcmd.pl')

diff --git a/scripts/connectcmd.pl b/scripts/connectcmd.pl
index d4a4491..b2bbdc2 100644
--- a/scripts/connectcmd.pl
+++ b/scripts/connectcmd.pl
@@ -17,7 +17,7 @@ my %postconn_actions;
 my %disconn_actions;
 
 sub load_actions {
-  open ACTIONS, "$ENV{HOME}/.irssi/connectcmd_actions";
+  open ACTIONS, q{<}, "$ENV{HOME}/.irssi/connectcmd_actions";
 
   while (<ACTIONS>) {
     my @lines = split "\n";
@@ -37,7 +37,7 @@ sub load_actions {
 }
 
 sub save_actions {
-  open ACTIONS, ">$ENV{HOME}/.irssi/connectcmd_actions";
+  open ACTIONS, q{>}, "$ENV{HOME}/.irssi/connectcmd_actions";
 
   foreach my $server (keys %preconn_actions) {
     print ACTIONS "$server:preconn:$preconn_actions{$server}\n";
-- 
cgit v1.2.3