From e3669815a00c158be92ea95f66b87fbe2c2ff78f Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Thu, 5 Apr 2012 14:28:06 +1200 Subject: [PATCH] Bug 7613 follow up to fix perlcritic errors Signed-off-by: Paul Poulain --- misc/bin/connexion_import_daemon.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/bin/connexion_import_daemon.pl b/misc/bin/connexion_import_daemon.pl index ffc1bcf7bc..9d32f8ac14 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 () { + 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; } -- 2.39.5