diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-15 13:07:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-15 13:07:33 +0000 |
| commit | 696f30f9b0ae3998c921d182127ff8d062808856 (patch) | |
| tree | dd83f24d16977bd8edef42fcfe9cc2f31bbd1c1b /perl-install/pkgs.pm | |
| parent | 510378574d4d0a97bae46ab21fdf76395b2af1a8 (diff) | |
| download | drakx-backup-do-not-use-696f30f9b0ae3998c921d182127ff8d062808856.tar drakx-backup-do-not-use-696f30f9b0ae3998c921d182127ff8d062808856.tar.gz drakx-backup-do-not-use-696f30f9b0ae3998c921d182127ff8d062808856.tar.bz2 drakx-backup-do-not-use-696f30f9b0ae3998c921d182127ff8d062808856.tar.xz drakx-backup-do-not-use-696f30f9b0ae3998c921d182127ff8d062808856.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 07d04073b..55fcb1caf 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -21,6 +21,11 @@ hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb ); +my @preferred = qw( + +); + + my $A = 20471; my $B = 16258; sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB. @@ -46,7 +51,14 @@ sub select($$;$) { my %l; @l{@{$p->{deps} || die "missing deps file"}} = (); while (do { my %l = %l; while (($n, $v) = each %l) { last if $v != 1; } $n }) { $l{$n} = 1; - my $i = Package($packages, $n) or next; + my $i = Package($packages, $n); + if (!$i && $n =~ /\|/) { + foreach (split '\|', $n) { + print "SSSSSSSSSSSSS $_\n"; + $i = Package($packages, $_); + last if $i && $i->{selected}; + } + } $i->{base} ||= $base; $i->{deps} or log::l("missing deps for $n"); unless ($i->{installed}) { @@ -163,7 +175,7 @@ sub getDeps($) { my $f = install_any::getFile("depslist") or die "can't find dependencies list"; foreach (<$f>) { my ($name, $size, @deps) = split; - ($name, @deps) = map { chop_version(first(split '\|')) } ($name, @deps); #-TODO better handling of choice + ($name, @deps) = map { join '|', map { chop_version($_) } split '\|' } ($name, @deps); $packages->{$name} or next; $packages->{$name}{size} = $size; $packages->{$name}{deps} = \@deps; |