From 2b5e2b524ca82593a7e870a49cb7d18b374154e2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Aug 2001 22:06:23 +0000
Subject: various typos fix

---
 perl-install/fs.pm     | 15 +++++++++------
 perl-install/fsedit.pm |  4 ++--
 2 files changed, 11 insertions(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 7241681da..ef520d5a9 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -112,7 +112,7 @@ sub write_fstab {
     my %new;
     my @l = map { 
 	my $device = 
-	  $_->{device} eq 'none' || member($_->{type}, qw(nfs smb)) ? 
+	  $_->{device} eq 'none' || member($_->{type}, qw(nfs smbfs)) ? 
 	      $_->{device} : 
 	  isLoopback($_) ? 
 	      ($_->{mntpoint} eq '/' ? "/initrd/loopfs$_->{loopback_file}" : $_->{device}) :
@@ -327,7 +327,7 @@ sub set_default_options {
 	}
 
 	# have noauto when we have user
-	$options->{noauto} = $options->{user}; 
+	$options->{noauto} = 1 if $options->{user}; 
 
 	if ($options->{user}) {
 	    # ensure security  (user_implies - noexec as noexec is not a security matter)
@@ -348,14 +348,17 @@ sub set_removable_mntpoints {
 	    if (detect_devices::isZipDrive($_)) {
 		$name = 'zip';
 	    } elsif ($name eq 'fd') {
-		$name = 'floppy';
+		# first floppy is valid, others may not be
+		$name = $names{floppy} ? '' : 'floppy';
 	    } else {
 		log::l("set_removable_mntpoints: don't know what to with hd $_->{device}");
 		next;
 	    }
 	}
-	my $s = ++$names{$name};
-	$_->{mntpoint} ||= "/mnt/$name" . ($s == 1 ? '' : $s);
+	if ($name) {
+	    my $s = ++$names{$name};
+	    $_->{mntpoint} ||= "/mnt/$name" . ($s == 1 ? '' : $s);
+	}
     }
 }
 
@@ -505,7 +508,7 @@ sub mount {
     if ($fs eq 'nfs') {
 	log::l("calling nfs::mount($dev, $where)");
 #	nfs::mount($dev, $where) or die _("nfs mount failed");
-    } elsif ($fs eq 'smb') {
+    } elsif ($fs eq 'smbfs') {
 	die "no smb yet...";
     } else {
 	$dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs';
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 1324dc325..7251913c6 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -75,7 +75,7 @@ sub typeOfPart {
 #- Functions
 #-######################################################################################
 sub empty_all_hds {
-    { hds => [], lvms => [], raids => [], loopbacks => [], raw_hds => [], nfs => [], smb => [] };
+    { hds => [], lvms => [], raids => [], loopbacks => [], raw_hds => [], nfss => [], smbs => [] };
 }
 sub recompute_loopbacks {
     my ($all_hds) = @_;
@@ -273,7 +273,7 @@ sub get_really_all_fstab {
     my ($all_hds) = @_;
     my @parts = map { partition_table::get_normal_parts($_) } all_hds($all_hds);
     my @raids = grep {$_} @{$all_hds->{raids}};
-    @parts, @raids, @{$all_hds->{loopbacks}}, @{$all_hds->{raw_hds}}, @{$all_hds->{nfss}}, @{$all_hds->{smb}};
+    @parts, @raids, @{$all_hds->{loopbacks}}, @{$all_hds->{raw_hds}}, @{$all_hds->{nfss}}, @{$all_hds->{smbs}};
 }
 sub get_all_fstab_and_holes {
     my ($all_hds) = @_;
-- 
cgit v1.2.1