summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/pkgs.pm80
1 files changed, 0 insertions, 80 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 4bd9b79b6..9f859c10a 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -677,86 +677,6 @@ sub _filter_packages {
} @packages;
}
-sub _installTransactionClosure {
- my ($packages, $id2pkg, $isUpgrade) = @_;
-
- foreach (grep { !$_->{selected} } @{$packages->{media}}) {
- foreach ($_->{start} .. $_->{end}) {
- delete $id2pkg->{$_};
- }
- }
-
- my @l = ikeys %$id2pkg;
- my $medium;
-
- #- search first usable medium (media are sorted).
- foreach (@{$packages->{media}}) {
- if ($l[0] <= $_->{end}) {
- #- we have a candidate medium, it could be the right one containing
- #- the first package of @l...
- $l[0] >= $_->{start} and $medium = $_, last;
- #- ... but it could be necessary to find the first
- #- medium containing package of @l.
- foreach my $id (@l) {
- $id >= $_->{start} && $id <= $_->{end} and $medium = $_, last;
- }
- $medium and last;
- }
- }
- $medium or return (); #- no more medium usable -> end of installation by returning empty list.
-
- #- it is sure at least one package will be installed according to medium chosen.
- {
- my $pkg = $packages->{depslist}[$l[0]];
- my $rpm = install::media::rel_rpm_file($medium, $pkg->filename);
- if ($install::media::postinstall_rpms && -e "$install::media::postinstall_rpms/$rpm") {
- #- very special case where the rpm has been copied on disk
- } elsif (!install::media::change_phys_medium($medium->{phys_medium}, $rpm, $packages)) {
- #- keep in mind the asked medium has been refused.
- #- this means it is no longer selected.
- #- (but do not unselect supplementary CDs.)
- $medium->{selected} = 0;
- }
- }
-
- if (my $p = packageByName($packages, 'mdv-rpm-summary')) {
- #- if it is selected, make it the first package
- exists $id2pkg->{$p->id} and unshift @l, $p->id;
- }
-
- my %closure;
- foreach my $id (@l) {
- my @l2 = $id;
-
- if ($isUpgrade && $id < 20) {
- #- HACK for upgrading to 2006.0: for the 20 first main packages, upgrade one by one
- #- why? well:
- #- * librpm is fucked up when ordering pkgs, pkg "setup" is removed before being installed.
- #- the result is /etc/group.rpmsave and no /etc/group
- #- * pkg locales requires basesystem, this is stupid, the result is a huge first transaction
- #- and it doesn't even help /usr/bin/locale_install.sh since it's not a requires(post)
- $closure{$id} = undef;
- last;
- }
-
- while (defined($id = shift @l2)) {
- exists $closure{$id} and next;
- $closure{$id} = undef;
-
- my $pkg = $packages->{depslist}[$id];
- foreach ($pkg->requires_nosense) {
- if (my $dep_id = find { $id2pkg->{$_} } keys %{$packages->{provides}{$_} || {}}) {
- push @l2, $dep_id;
- }
- }
- }
-
- keys %closure >= $limitMinTrans and last;
- }
-
- map { delete $id2pkg->{$_} } grep { $id2pkg->{$_} } ikeys %closure;
-}
-
sub install {
my ($isUpgrade, $toInstall, $packages, $callback) = @_;
my %packages;