diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-10 15:25:48 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-10 15:25:48 +0000 |
| commit | 5950beff972224a90c03bc4d1aff46b39562817a (patch) | |
| tree | 90dc5ef9994116f5e1dc7b77b4095f019e862b74 /perl-install/pkgs.pm | |
| parent | 3150bbd826b85c5b9981bd1191fdfac42b4da8c5 (diff) | |
| download | drakx-5950beff972224a90c03bc4d1aff46b39562817a.tar drakx-5950beff972224a90c03bc4d1aff46b39562817a.tar.gz drakx-5950beff972224a90c03bc4d1aff46b39562817a.tar.bz2 drakx-5950beff972224a90c03bc4d1aff46b39562817a.tar.xz drakx-5950beff972224a90c03bc4d1aff46b39562817a.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 9c745a1f2..4c1ad4536 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -96,6 +96,16 @@ $PKGS_SKIP = 0x08000000; $PKGS_UNSKIP = 0x10000000; $PKGS_UPGRADE = 0x20000000; +#- package to ignore, typically in Application CD. +my %ignoreBadPkg = ( + 'civctp-demo' => 1, + 'eus-demo' => 1, + 'myth2-demo' => 1, + 'heretic2-demo' => 1, + 'heroes3-demo' => 1, + 'rt2-demo' => 1, + ); + #- basic methods for extracting informations about packages. #- to save memory, (name, version, release) are no more stored, they #- are directly generated from (file). @@ -1059,7 +1069,7 @@ sub install($$$;$$) { c::headerFree(delete $_->{header}) foreach @transToInstall; cleanHeaders($prefix); - if (my @badpkgs = grep { !packageFlagInstalled($_) && $_->{medium}{selected} } @transToInstall) { + if (my @badpkgs = grep { !packageFlagInstalled($_) && $_->{medium}{selected} && !exists($ignoreBadPkg{packageName($_)}) } @transToInstall) { foreach (@badpkgs) { log::l("bad package $_->{file}"); packageSetFlagSelected($_, 0); |