diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-01 10:56:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-01 10:56:55 +0000 |
| commit | 033febf8be445d054d253982587abc11da738395 (patch) | |
| tree | 98b7576667232dce5a23c2adc3eb93c517c8b37c /perl-install | |
| parent | 9ab4d1c20b3c35aa9d0e30e86fe989321b5fd565 (diff) | |
| download | drakx-033febf8be445d054d253982587abc11da738395.tar drakx-033febf8be445d054d253982587abc11da738395.tar.gz drakx-033febf8be445d054d253982587abc11da738395.tar.bz2 drakx-033febf8be445d054d253982587abc11da738395.tar.xz drakx-033febf8be445d054d253982587abc11da738395.zip | |
help debugging packageCallbackChoices()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 96953417e..a64f60115 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -257,6 +257,7 @@ sub packageRequest { sub packageCallbackChoices { my ($urpm, $_db, $state, $choices) = @_; if (my $prefer = find { $_->arch ne 'src' && exists $preferred{$_->name} } @$choices) { +#- log::l("packageCallbackChoices: prefering " . $prefer->name); $prefer; } else { my @l = grep { @@ -270,8 +271,8 @@ sub packageCallbackChoices { } $_->requires_nosense; } @$choices; if (!@l) { - push @l, $choices->[0]; - log::l("packageCallbackChoices: default choice from ", join(",", map { $urpm->{depslist}[$_]->name } keys %{$state->{selected}}), " in ", join(",", map { $_->name } @$choices)); + @l = $choices->[0]; + log::l("packageCallbackChoices: default choice from ", join(",", map { $_->name } @$choices), " in ", join(",", map { $urpm->{depslist}[$_]->name } keys %{$state->{selected}})); } #-log::l("packageCallbackChoices: chosen " . join(" ", map { $_->name } @l)); @l; |