diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-04 16:54:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-04 16:54:19 +0000 |
| commit | 68c3c1cd6e89d6a0f91f6c86510ec661864da336 (patch) | |
| tree | 13b7ddd23376813d75e546241bcd09a8c8edd8a9 /perl-install/pkgs.pm | |
| parent | d1e96894b39e141a9c0fa6ef999eb751ef87ebf4 (diff) | |
| download | drakx-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.pm | 5 |
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"); |