aboutsummaryrefslogtreecommitdiffstats
path: root/emi
diff options
context:
space:
mode:
authorClaudio Matsuoka <claudio@mandriva.com>2006-11-14 17:49:59 +0000
committerClaudio Matsuoka <claudio@mandriva.com>2006-11-14 17:49:59 +0000
commitb2969c5512719f60519599fe94303e1d037816fe (patch)
tree26f726cc13c7ce0a595b73477e9dc928de118490 /emi
parent09d1353e262e15e2a7d683e875c9e091a9fef751 (diff)
downloadiurt-b2969c5512719f60519599fe94303e1d037816fe.tar
iurt-b2969c5512719f60519599fe94303e1d037816fe.tar.gz
iurt-b2969c5512719f60519599fe94303e1d037816fe.tar.bz2
iurt-b2969c5512719f60519599fe94303e1d037816fe.tar.xz
iurt-b2969c5512719f60519599fe94303e1d037816fe.zip
Fixed log message, renamed variable, code cleanup
Diffstat (limited to 'emi')
-rwxr-xr-xemi18
1 files changed, 9 insertions, 9 deletions
diff --git a/emi b/emi
index 296eb7d..3a7270e 100755
--- a/emi
+++ b/emi
@@ -160,7 +160,7 @@ sub todo_func {
if ($r =~ /(\d{14}\.\w+\.\w+\.\d+)_(.*\.([^.]+)\.rpm)$/) {
my ($prefix, $rpm, $arch) = ($1, $2, $3);
- plog("$program_name: found todo rpm $rpm ($prefix)");
+ plog("found todo rpm $rpm ($prefix)");
push @{$pkg_tree{$prefix}{todo}}, $rpm;
}
}
@@ -177,26 +177,26 @@ unlink $pidfile;
#
foreach my $prefix (keys %pkg_tree) {
- my $ok = 1;
my $target = $pkg_tree{$prefix}{target};
my $path = $pkg_tree{$prefix}{path};
my $section = $pkg_tree{$prefix}{section};
+ my %missing;
plog("processing $prefix in $path");
- my %missing;
- foreach my $mandatory_arch (@{$config->{mandatory_arch}}, 'src') {
- $excluded{$prefix}{$mandatory_arch} and next;
+ my $ok = 1;
+ foreach my $m (@{$config->{mandatory_arch}}, 'src') {
+ $excluded{$prefix}{$m} and next;
my $x = "yes";
- if (!$pkg_tree{$prefix}{arch}{$mandatory_arch} && !$pkg_tree{$prefix}{arch}{noarch}){
- if (!$cache->{arch}{$prefix}{$mandatory_arch}) {
- $missing{$mandatory_arch} = 1;
+ if (!$pkg_tree{$prefix}{arch}{$m} && !$pkg_tree{$prefix}{arch}{noarch}){
+ if (!$cache->{arch}{$prefix}{$m}) {
+ $missing{$m} = 1;
$x = "no";
$ok = 0;
} else {
$x = "yes (in cache)";
}
}
- plog(" mandatory architecture $mandatory_arch present: $x");
+ plog(" mandatory architecture $m present: $x");
}
unless ($ok) {