From 18aaa8cd39e680fc54116128c24469f7afadb78d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 30 Aug 2000 17:20:24 +0000 Subject: no_comment --- perl-install/install_steps.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 36e80e7f1..d0a5b2b21 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -150,8 +150,8 @@ sub doPartitionDisksAfter { if (my $s = delete $o->{stage1_hd}) { my ($part) = grep { $_->{device} eq $s->{device} } @{$o->{fstab}}; $part->{isMounted} ? - symlinkf("$o->{prefix}$part->{mntpoint}", "/tmp/hdimage") : - eval { fs::mount($s->{dev}, "/tmp/hdimage", $s->{fs}) }; + do { rmdir "/tmp/hdimage" ; symlinkf("$o->{prefix}$part->{mntpoint}", "/tmp/hdimage") } : + eval { fs::mount($s->{device}, "/tmp/hdimage", $s->{type}) }; } cat_("/proc/mounts") =~ m|(\S+)\s+/tmp/rhimage nfs| && @@ -381,8 +381,10 @@ Consoles 1,3,4,7 may also contain interesting information"; #- create /etc/sysconfig/desktop file according to user choice and presence of /usr/bin/kdm or /usr/bin/gdm. my $f = "$o->{prefix}/etc/sysconfig/desktop"; if ($o->{compssUsersChoice}{KDE} && -x "$o->{prefix}/usr/bin/kdm") { + log::l("setting desktop to KDE"); output($f, "KDE\n"); } elsif ($o->{compssUsersChoice}{Gnome} && -x "$o->{prefix}/usr/bin/gdm") { + log::l("setting desktop to GNOME"); output($f, "GNOME\n"); } -- cgit v1.2.1