From 4378ed899e56cfed1ffda1237188654de2bee350 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 25 Sep 2012 06:23:23 +0000 Subject: perl_checker cleanup --- emi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'emi') diff --git a/emi b/emi index ae7a5d4..c56236a 100755 --- a/emi +++ b/emi @@ -43,7 +43,7 @@ my $program_name = 'emi'; $run{program_name} = $program_name; my $LOG; -if (!$ENV{'EMI_LOG_FILE'} || !open($LOG, '>>', $ENV{'EMI_LOG_FILE'})) { +if (!$ENV{EMI_LOG_FILE} || !open($LOG, '>>', $ENV{EMI_LOG_FILE})) { open($LOG, ">&STDERR"); } @@ -192,7 +192,7 @@ foreach my $prefix (sort keys %pkg_tree) { my $ok = 1; foreach my $section (keys %{$pkg_tree{$prefix}{section}}) { - my @wanted_archs = defined($pkg_tree{$prefix}{section}{$section}{arch}{noarch}) ? ('noarch') : @{$config->{mandatory_arch}}; + my @wanted_archs = defined($pkg_tree{$prefix}{section}{$section}{arch}{noarch}) ? 'noarch' : @{$config->{mandatory_arch}}; my $path = $pkg_tree{$prefix}{section}{$section}{path}; my %missing; -- cgit v1.2.1