summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-05 13:53:49 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-05 13:53:49 +0000
commitccd20f76c6ecc6abc844aef0d21f111022b6fc61 (patch)
tree016c867239723c38ead33468bcbdc07a7dbd9249 /perl-install/pkgs.pm
parent209bc3ed022ebdbcf535ea24f6024a0fc8e6ee44 (diff)
downloaddrakx-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.pm7
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);