typo fixes

6 files changed, 21 insertions, 21 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 6b95d0c39..3d4741104 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -74,7 +74,7 @@ sub kernel_str2short_name {
 
 sub basename2initrd_basename {
     my ($basename) = @_;
-    $basename =~ s!(vmlinu[zx]|uImage)-?!!; #- here we do not use $vmlinuz_regexp since we explictly want to keep all that is not "vmlinuz"
+    $basename =~ s!(vmlinu[zx]|uImage)-?!!; #- here we do not use $vmlinuz_regexp since we explicitly want to keep all that is not "vmlinuz"
     'initrd' . ($basename ? "-$basename" : '');    
 }
 sub kernel_str2vmlinuz_long {
@@ -441,7 +441,7 @@ sub _parse_grub_menu_lst() {
 
 =item is_already_crypted($password)
 
-Returns whether grub password is already crypted or not
+Returns whether grub password is already encrypted or not
 
 =cut
 
@@ -1084,7 +1084,7 @@ wait for default boot.
 
 ");
 	my $msg = translate($msg_en);
-	#- use the english version if more than 40% of 8bits chars
+	#- use the English version if more than 40% of 8bits chars
 	#- else, use the translation but force a conversion to ascii
 	#- to be sure there won't be undisplayable characters
 	if (int(grep { $_ & 0x80 } unpack "c*", $msg) / length($msg) > 0.4) {
@@ -1104,7 +1104,7 @@ sub suggest {
     my $boot = fs::get::root($fstab, 'boot')->{device};
     my $mbr;
     
-    # If installing onto an USB drive, put the mbr there, else on the first non removable drive
+    # If installing onto an USB drive, put the MBR there, else on the first non removable drive
     if ($root_part->{is_removable}) {
         $mbr = fs::get::part2hd($root_part, $all_hds);
     } else {
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 3945f54ce..226bc0440 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -250,7 +250,7 @@ The reverse of C<removeXiBSuffix()>, returns a nicely human size. eg:
 
   2097152 => "2MB"
 
-The optional parameter enables to presize the unit size (default is one).
+The optional parameter enables to provide the unit size (default is one).
 eg for a 2000 512 sized sectors:
 
   formatXiB(2000, 512)
@@ -331,7 +331,7 @@ sub formatError {
 
 =item group_by($f, @list)
 
-Group the elements of @list in array references according to the $f comparaison function.
+Group the elements of @list in array references according to the $f comparison function.
 
 =cut
 
@@ -368,7 +368,7 @@ sub group_n_lm {
 
 =item join_lines(@strings)
 
-Concat adjacent strings if laters begin with spaces.
+Concatenate adjacent strings if laters begin with spaces.
 
 =cut
 
@@ -396,7 +396,7 @@ sub read_alternative {
 sub set_alternative {
     my ($command, $executable) = @_;
 
-    #- check the existance of $executable as an alternative for $command
+    #- check the existence of $executable as an alternative for $command
     #- (is this needed???)
     run_program::rooted_get_stdout($::prefix, 'update-alternatives', '--display', $command) =~ /^\Q$executable /m or return;
 
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 17e37954a..a8aa9bd2e 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -277,7 +277,7 @@ sub getSCSI() {
 	    $s;
 	};
 
-	# Old hp scanners report themselves as "Processor"s
+	# Old HP scanners report themselves as "Processor"s
 	# (see linux/include/scsi/scsi.h and sans-find-scanner.1)
 	my $raw_type = $scsi_types[$get->('type')];
 
@@ -849,7 +849,7 @@ sub get_lan_interfaces() { grep { is_lan_interface($_) } get_all_net_devices() }
 
 =item get_net_interfaces()
 
-Returns list of all usefull network devices
+Returns list of all useful network devices
 
 =cut
 
@@ -1115,7 +1115,7 @@ sub pcmcia_controller_probe() {
 
 =item pcmcia_probe()
 
-Return list of PCMCIA devices (eg: ethernet PCMCIA cards, ...)
+Return list of PCMCIA devices (eg: Ethernet PCMCIA cards, ...)
 
 =cut
 
@@ -1331,7 +1331,7 @@ sub dmi_detect_memory() {
 
 =item computer_info()
 
-Analyze "Chassis" & "Bios" in dmidecode output and return a hash of flags/values (isLaptop, isServer, BIOS_Year)
+Analyse "Chassis" & "Bios" in dmidecode output and return a hash of flags/values (isLaptop, isServer, BIOS_Year)
 
 =cut
 
@@ -1507,7 +1507,7 @@ sub is_netbook_nettop() {
 
 =item has_low_resources()
 
-Is it a low ressource machine?
+Is it a low resource machine?
 
 =cut
 
@@ -1517,7 +1517,7 @@ sub has_low_resources() {
 
 =item need_light_desktop()
 
-Does it need a light desktop (netbook or low ressources machine)?
+Does it need a light desktop (netbook or low resources machine)?
 
 =cut
 
diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index 5e4f3a9b6..f81cac37b 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -172,7 +172,7 @@ sub is_available {
 =item are_installed($do, @names)
 
 Returns name(s) of package(s) that are already installed on the system.
-This is less costly (needs to query rpmdb)
+This is less costly (needs to query RPM DB)
 
 =cut
 
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index a74061856..dd96b1bf9 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -535,7 +535,7 @@ ask_from_() takes global options ($common):
 
 =item * I<focus_first>: (deprecated) force focus on the first entry
 
-=item * B<ok_disabled>: function returning wether {ok} should be disabled (grayed)
+=item * B<ok_disabled>: function returning whether {ok} should be disabled (grayed)
 
 =item * B<validate>: function called when {ok} is pressed. If it returns false, the first entry is focused, otherwise it quits
 
@@ -569,7 +569,7 @@ ask_from_ takes a list of entries with fields:
 
 =item * B<help>: tooltip
 
-=item * I<advanced>: (deprecated) wether it is shown in by default or only in advanced mode
+=item * I<advanced>: (deprecated) whether it is shown in by default or only in advanced mode
 
 =item * B<focus_out>: function called when the entry is focused out
 
@@ -577,9 +577,9 @@ ask_from_ takes a list of entries with fields:
 
 =item * B<validate>: function called when "Ok" is pressed. If it returns false, this entry is focused, otherwise it quits
 
-=item * B<disabled>: function returning wether it should be disabled (grayed)
+=item * B<disabled>: function returning whether it should be disabled (grayed)
 
-=item * B<focus>: function returning wether it should be focused
+=item * B<focus>: function returning whether it should be focused
 
 =item * B<alignment>: preferred alignment
 
@@ -617,7 +617,7 @@ It has these optional parameters:
 
 =item * B<help>: can be a hash or a function,
 
-=item * B<tree_expanded>: boolean telling wether the tree should be wide open by default
+=item * B<tree_expanded>: boolean telling whether the tree should be wide open by default
 
 =item * B<quit_if_double_click>: boolean
 
diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index 710e3167d..09335e33a 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -41,7 +41,7 @@ sub cylinder_size {
 
 =item detect_durting_install()
 
-Explicitely scan VGs.
+Explicitly scan VGs.
 
 =cut