diff options
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 8 |
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 { |