diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-08-05 13:53:49 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-08-05 13:53:49 +0000 |
| commit | ccd20f76c6ecc6abc844aef0d21f111022b6fc61 (patch) | |
| tree | 016c867239723c38ead33468bcbdc07a7dbd9249 /perl-install/pkgs.pm | |
| parent | 209bc3ed022ebdbcf535ea24f6024a0fc8e6ee44 (diff) | |
| download | drakx-backup-do-not-use-ccd20f76c6ecc6abc844aef0d21f111022b6fc61.tar drakx-backup-do-not-use-ccd20f76c6ecc6abc844aef0d21f111022b6fc61.tar.gz drakx-backup-do-not-use-ccd20f76c6ecc6abc844aef0d21f111022b6fc61.tar.bz2 drakx-backup-do-not-use-ccd20f76c6ecc6abc844aef0d21f111022b6fc61.tar.xz drakx-backup-do-not-use-ccd20f76c6ecc6abc844aef0d21f111022b6fc61.zip | |
make default size of transaction to 13 (?) and avoid rpm ordering which seems
nasty at present (missing configuration read ?).
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 19a9fc3a6..8d1c07023 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -28,7 +28,7 @@ our %compssListDesc = ( ); #- constant for small transaction. -our $limitMinTrans = 8; +our $limitMinTrans = 13; #- package to ignore, typically in Application CD. OBSOLETED ? @@ -895,6 +895,8 @@ sub install($$$;$$) { return if $::g_auto_install || !scalar(@$toInstall); + delete $packages->{rpmdb}; #- make sure rpmdb is closed before. + #- for root loopback'ed /boot my $loop_boot = loopback::prepare_boot(); @@ -996,7 +998,7 @@ sub install($$$;$$) { foreach @transToInstall; } - $trans->order or die "error ordering package list: " . c::rpmErrorString(); + #$trans->order or die "error ordering package list: " . c::rpmErrorString(); $trans->set_script_fd(fileno $LOG); log::l("rpm transactions start"); @@ -1112,6 +1114,7 @@ sub remove { return if $::g_auto_install || !@{$toRemove || []}; + delete $packages->{rpmdb}; #- make sure rpmdb is closed before. my $db = URPM::DB::open($prefix, 1) or die "error opening RPM database: ", c::rpmErrorString(); my $trans = $db->create_transaction($prefix); |