|
|
@@ -1718,14 +1718,14 @@ sub make_dep ($$$$$$$) {
|
|
|
if ($t = target_has_conflicts($target, $env->{installed}, $env)) {
|
|
|
target_setstatus($target,'CONFLICT',4);
|
|
|
push(@$clist,$target);
|
|
|
- print "# $target->{name} conflicts with ",vsn($t),"\n";
|
|
|
+ pusherr($env,$target,"$target->{name} conflicts with ".vsn($t));
|
|
|
return;
|
|
|
}
|
|
|
|
|
|
if ($t = target_has_conflicts($target, $env->{built}, $env)) {
|
|
|
target_setstatus($target,'CONFLICT',4);
|
|
|
push(@$clist,$target);
|
|
|
- print "# $target->{name} conflicts with ",vsn($t),"\n";
|
|
|
+ pusherr($env,$target,"$target->{name} conflicts with ".vsn($t));
|
|
|
return;
|
|
|
}
|
|
|
|
|
|
@@ -1806,10 +1806,9 @@ sub make_dep ($$$$$$$) {
|
|
|
}
|
|
|
|
|
|
unless (depend_option($t, $d{$_}, $env)) {
|
|
|
- print "# $target->{name} has conflicting requirement\n";
|
|
|
- push(@{$env->{fatal}},vsn($target));
|
|
|
- target_setstatus($target,'UNDEF',4);
|
|
|
push @$clist, $target;
|
|
|
+ pusherr($env,$target,"$target->{name} has conflicting requirement");
|
|
|
+ target_setstatus($target,'UNDEF',4);
|
|
|
$conflict = 1;
|
|
|
next;
|
|
|
}
|
|
|
@@ -1823,10 +1822,9 @@ sub make_dep ($$$$$$$) {
|
|
|
|
|
|
push @deps, $t;
|
|
|
} else {
|
|
|
- print "# $target->{name} searches a frood called '$_'\n";
|
|
|
- push(@{$env->{fatal}},vsn($target));
|
|
|
- target_setstatus($target,'UNDEF',4);
|
|
|
push @$clist, $target;
|
|
|
+ pusherr($env,$target,"$target->{name} searches a frood called '$_'");
|
|
|
+ target_setstatus($target,'UNDEF',4);
|
|
|
$conflict = 1;
|
|
|
}
|
|
|
}
|
|
|
@@ -2057,6 +2055,15 @@ sub build_deps ($$) {
|
|
|
# OUTPUT
|
|
|
#
|
|
|
|
|
|
+#
|
|
|
+# remember fatal error
|
|
|
+#
|
|
|
+sub pusherr ($$$) {
|
|
|
+ my($env,$target,$mess) = @_;
|
|
|
+ print "# $mess\n";
|
|
|
+ push @{$env->{fatal}}, vsn($target).": $mess\n";
|
|
|
+}
|
|
|
+
|
|
|
#
|
|
|
# compute path to binary RPM from rpm config and target data
|
|
|
#
|
|
|
@@ -2268,7 +2275,7 @@ sub print_status ($$$$$) {
|
|
|
my($old,$tag,$new);
|
|
|
|
|
|
foreach (@$list, @$clist) {
|
|
|
- next unless defined $_->{release};
|
|
|
+ next unless $_->{release} =~ /\S/;
|
|
|
$map{$_->{name}} = {
|
|
|
rel => "$_->{version}-$_->{release}",
|
|
|
status => $_->{STATUS}
|
|
|
@@ -2276,6 +2283,7 @@ sub print_status ($$$$$) {
|
|
|
}
|
|
|
|
|
|
foreach (@$bonly) {
|
|
|
+ next unless $_->{release} =~ /\S/;
|
|
|
$map{$_->{name}} = {
|
|
|
rel => "$_->{version}-$_->{release}",
|
|
|
status => 'TEMP'
|
|
|
@@ -2286,7 +2294,7 @@ sub print_status ($$$$$) {
|
|
|
foreach $n (keys %$installed) {
|
|
|
next if $n =~ /::/;
|
|
|
next if exists $map{$n};
|
|
|
- next unless grep { $_ ne '-' } keys %{$installed->{$n}};
|
|
|
+ next unless grep { $_ ne '' } keys %{$installed->{$n}};
|
|
|
$map{$n}->{'status'} = 'OK';
|
|
|
push @names,$n;
|
|
|
}
|
|
|
@@ -2294,7 +2302,7 @@ sub print_status ($$$$$) {
|
|
|
foreach $n (keys %$repository) {
|
|
|
next if $n =~ /::/;
|
|
|
next if exists $map{$n};
|
|
|
- next unless grep { $_ ne '-' } keys %{$repository->{$n}};
|
|
|
+ next unless grep { $_ ne '' } keys %{$repository->{$n}};
|
|
|
$t = find_target($n, $repository);
|
|
|
$map{$n}->{'status'} = 'NEW';
|
|
|
$map{$n}->{'rel'} = vs($t);
|
|
|
@@ -2434,7 +2442,7 @@ if ($opt_L) {
|
|
|
} else {
|
|
|
if (@{$env->{fatal}}) {
|
|
|
die "FATAL: errors occured while building:\n",
|
|
|
- join (',', @{$env->{fatal}}),
|
|
|
+ @{$env->{fatal}},
|
|
|
"\n";
|
|
|
}
|
|
|
|