gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 7613 follow up to fix perlcritic errors 

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Chris Cormack 2012-04-05 14:28:06 +12:00 committed by Paul Poulain
parent 12ff7355bb
commit e3669815a0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/bin/connexion_import_daemon.pl
View File

@ -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;
}