summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-04 16:54:19 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-04 16:54:19 +0000
commit68c3c1cd6e89d6a0f91f6c86510ec661864da336 (patch)
tree13b7ddd23376813d75e546241bcd09a8c8edd8a9 /perl-install/pkgs.pm
parentd1e96894b39e141a9c0fa6ef999eb751ef87ebf4 (diff)
downloaddrakx-68c3c1cd6e89d6a0f91f6c86510ec661864da336.tar
drakx-68c3c1cd6e89d6a0f91f6c86510ec661864da336.tar.gz
drakx-68c3c1cd6e89d6a0f91f6c86510ec661864da336.tar.bz2
drakx-68c3c1cd6e89d6a0f91f6c86510ec661864da336.tar.xz
drakx-68c3c1cd6e89d6a0f91f6c86510ec661864da336.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index a7e983c46..4b07450a3 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -23,6 +23,7 @@ sub Package {
sub select($$;$) {
my ($packages, $p, $base) = @_;
+ $p->{base} ||= $base;
$p->{selected} = -1; # selected by user
my @l = @{$p->{deps} || die "missing deps file"};
while (@l) {
@@ -226,12 +227,12 @@ sub setSelectedFromCompssList($$$$$) {
sub init_db {
my ($prefix, $isUpgrade) = @_;
- my $f = "$prefix/tmp/" . ($isUpgrade ? "upgrade" : "install") . ".log";
+ my $f = "$prefix/root/" . ($isUpgrade ? "upgrade" : "install") . ".log";
open(F, "> $f") ? log::l("opened $f") : log::l("Failed to open $f. No install log will be kept.");
$fd = fileno(F) || log::fd() || 2;
c::rpmErrorSetCallback($fd);
# c::rpmSetVeryVerbose();
-
+
log::l("reading /usr/lib/rpm/rpmrc");
c::rpmReadConfigFiles() or die "can't read rpm config files";
log::l("\tdone");