diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-09-25 06:23:23 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-09-25 06:23:23 +0000 |
commit | 4378ed899e56cfed1ffda1237188654de2bee350 (patch) | |
tree | c1ac6572bc3476eb9577e7270f9322c1c58cb389 /emi | |
parent | 4034fc48132cf815bf72135e55d4186d5b842acf (diff) | |
download | iurt-4378ed899e56cfed1ffda1237188654de2bee350.tar iurt-4378ed899e56cfed1ffda1237188654de2bee350.tar.gz iurt-4378ed899e56cfed1ffda1237188654de2bee350.tar.bz2 iurt-4378ed899e56cfed1ffda1237188654de2bee350.tar.xz iurt-4378ed899e56cfed1ffda1237188654de2bee350.zip |
perl_checker cleanup
Diffstat (limited to 'emi')
-rwxr-xr-x | emi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |