diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-09-17 23:09:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-09-17 23:09:33 +0000 |
| commit | 24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e (patch) | |
| tree | 28dcb28f1601c99ad21db0e6de0224e6996d46ac /perl-install/install/pkgs.pm | |
| parent | 1ec60b5d413e9c50b290e2d1366ef0c38baafa9c (diff) | |
| download | drakx-backup-do-not-use-24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e.tar drakx-backup-do-not-use-24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e.tar.gz drakx-backup-do-not-use-24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e.tar.bz2 drakx-backup-do-not-use-24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e.tar.xz drakx-backup-do-not-use-24f8a3f4a8d6e1b35103ae0efee001f69dec7d6e.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 389fffcc7..bfb039690 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -162,7 +162,7 @@ sub _packageRequest { #- check for medium selection, if the medium has not been #- selected, the package cannot be selected. my $medium = packageMedium($packages, $pkg); - $medium and !$medium->{ignore} or return; + $medium && !$medium->{ignore} or return; +{ $pkg->id => 1 }; } @@ -339,7 +339,8 @@ sub empty_packages { $urpm::args::options{force_transactions} = 1; $::force = 1; $packages->{options}{ignoresize} = 1; - $packages->{options}{'priority-upgrade'}; # prevent priority upgrade + # prevent priority upgrade (redundant for now as $urpm->{root} implies disabling it: + $packages->{options}{'priority-upgrade'} = undef; # log $trans->add() faillure; FIXME: should we override *urpm::msg::sys_log? $packages->{debug} = \&log::l; @@ -770,8 +771,6 @@ sub _install_raw { # bug present in 2009.0, 2008.1, 2008.0, ... (probably since r11141 aka when switching to rpm-4.2 in URPM-0.83) local $packages->{options}{script_fd} = fileno $LOG; - my ($retry, $retry_count); - log::l("rpm transactions start"); my $exit_code = urpm::main_loop::run($packages, $packages->{state}, undef, undef, undef, { |