typo fixes

1 files changed, 4 insertions, 4 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 {