diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-24 08:53:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-24 08:53:00 +0000 |
| commit | 2d4133ff240757edb14cf10b83bbbabb274772f3 (patch) | |
| tree | adbdd0c33b5ff160ed5a1eb80cdb47837c7e0b45 /perl-install/pkgs.pm | |
| parent | 0925f92586a8a200a632eece658b2a45b09c9cc8 (diff) | |
| download | drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.gz drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.bz2 drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.xz drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2d50d8712..cc3dd166e 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -14,14 +14,26 @@ use c; $size_correction_ratio = 1.04; -1; - +my @skip_list = qw( +XFree86-8514 XFree86-AGX XFree86-Mach32 XFree86-Mach64 XFree86-Mach8 XFree86-Mono +XFree86-P9000 XFree86-S3 XFree86-S3V XFree86-SVGA XFree86-W32 XFree86-I128 +XFree86-Sun XFree86-SunMono XFree86-Sun24 XFree86-3DLabs kernel-BOOT +MySQL MySQL_GPL mod_php3 midgard postfix metroess metrotmpl +hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers +hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb +);#) sub Package { my ($packages, $name) = @_; $packages->{$name} or log::l("unknown package `$name'") && undef; } +sub allpackages { + my ($packages) = @_; + my %skip_list; @skip_list{@skip_list} = (); + grep { !exists $skip_list{$_->{name}} } values %$packages; +} + sub select($$;$) { my ($packages, $p, $base) = @_; my ($n, $v); @@ -221,7 +233,9 @@ sub setSelectedFromCompssList($$$$$) { defined $ind or log::l("unknown install class $install_class in compssList"), return; my @values = map { $_->{values}[$ind] } @packages; - sort { $values[$b] <=> $values[$a] } 0 .. $#packages; + sort { $values[$b] <=> $values[$a] } + grep { $packages[$_]->{values}[$ind] } #- remove null values (won't get installed) + 0 .. $#packages; }; foreach (@places) { my $p = $packages[$_]; @@ -320,3 +334,5 @@ sub install($$) { $_->{installed} = 1 foreach @$toInstall; } + +1; |