From f74bbf8b0d86bd95f17cce4c7ea0912be746401c Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 16 Apr 2002 13:01:10 +0000 Subject: disable unselection of some package (gmc, all gcc3.0 stuff). --- tools/oem-prepare | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tools/oem-prepare b/tools/oem-prepare index d5d7ae483..8b58f2a7a 100755 --- a/tools/oem-prepare +++ b/tools/oem-prepare @@ -206,13 +206,13 @@ sub select_packages { } #- special packages that are to be removed always... BEWARE THIS IS A HACK !!! - foreach (qw(gmc gcc3.0 gcc3.0-c++ gcc3.0-cpp libstdc++3.0 libstdc++3.0-devel)) { - my $pkg = pkgs::packageByName($o->{packages}, $_); - if ($pkg) { - delete $pkg->{closure}; - delete $pkg->{selected}; - } - } +# foreach (qw(gmc gcc3.0 gcc3.0-c++ gcc3.0-cpp libstdc++3.0 libstdc++3.0-devel)) { +# my $pkg = pkgs::packageByName($o->{packages}, $_); +# if ($pkg) { +# delete $pkg->{closure}; +# delete $pkg->{selected}; +# } +# } $o->{packages}; } @@ -285,7 +285,7 @@ sub selectedSize { } $size; } -my @preferred = qw(perl-GTK postfix wu-ftpd ghostscript-X vim-minimal kernel ispell-en); +my @preferred = qw(perl-GTK postfix gcc gcc-cpp gcc-c++ proftpd ghostscript-X vim-minimal kernel db1 db2 ispell-en Bastille-Curses-module nautilus libxpm4); sub selectPackage { my ($packages, $pkg, $base, $otherOnly, $check_recursion) = @_; -- cgit v1.2.1