no_comment

3 files changed, 3 insertions, 5 deletions

diff --git a/docs/TODO b/docs/TODO
index 79f7489cc..6aa3d08ff 100644
--- a/docs/TODO
+++ b/docs/TODO
@@ -1,5 +1,3 @@
-clock is not set.
-
 dd the different xmodmaps for every languages (maybe gnome-core xmodmaps can help)
 xmodmap needed even for english as the backspace is not what it should
 
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 50e6ddfea..891212ae3 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -390,7 +390,7 @@ sub formatPartitions {
 	fs::mount_all([ grep { isExt2($_) || isSwap($_) } @{$o->{fstab}} ], $o->{prefix});
     }
     mkdir "$o->{prefix}/$_", 0755 foreach qw(dev etc etc/sysconfig etc/sysconfig/network-scripts 
-                                             home mnt tmp var var/tmp var/lib var/lib/rpm); #)
+                                             home mnt tmp var var/tmp var/lib var/lib/rpm);
 }
 
 sub choosePackages {
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 86480ab70..a7e983c46 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -63,11 +63,11 @@ sub unselect($$) {
     my $changed = 1;
     while ($changed) {
 	$changed = 0;
-      NEXT: foreach my $p (grep { $_->{selected} > 0 } values %$packages) {
+      NEXT: foreach my $p (grep { $_->{selected} > 0 && !$_->{base} } values %$packages) {
 	    my $set = set_new(@{$p->{provides}});
 	    foreach (@{$set->{list}}) {
 		my $q = Package($packages, $_);
-		$q->{selected} == -1 and next NEXT;
+		$q->{selected} == -1 || $q->{base} and next NEXT;
 		set_add($set, @{$q->{provides}}) if $q->{selected};
 	    }
 	    $p->{selected} = 0;