From 2ebce1d840d29ced35adee714bcfe4ba25225d92 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Thu, 5 Apr 2012 14:28:06 +1200
Subject: [PATCH] Bug 7613 follow up to fix perlcritic errors

---
 misc/bin/connexion_import_daemon.pl |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/bin/connexion_import_daemon.pl b/misc/bin/connexion_import_daemon.pl
index ffc1bcf..9d32f8a 100755
--- a/misc/bin/connexion_import_daemon.pl
+++ b/misc/bin/connexion_import_daemon.pl
@@ -112,11 +112,11 @@ sub parse_config {
 
     my $config_file = $self->{config_file};
 
-    open CONF, $config_file or die "Cannot open config file $config: $!";
+    open (my $conf_fh, '<', $config_file) or die "Cannot open config file $config: $!";
 
     my %param;
     my $line = 0;
-    while (<CONF>) {
+    while (<$conf_fh>) {
         $line++;
         chomp;
         s/\s*#.*//o; # remove comments
@@ -145,7 +145,7 @@ sub parse_config {
     my $log_fh;
     close $self->{log_fh} if $self->{log_fh};
     if (my $logfile = delete $param{log}) {
-        open $log_fh, ">>$logfile" or die "Cannot open $logfile for write: $!";
+        open ($log_fh, '>>', $logfile) or die "Cannot open $logfile for write: $!";
     } else {
         $log_fh = \*STDERR;
     }
-- 
1.7.5.4