From a4e46a78d26a05957100cd360b07cd69d13037b0 Mon Sep 17 00:00:00 2001 From: "Thierry.Vignaud" Date: Tue, 27 May 2014 22:03:55 +0200 Subject: typo fixes --- perl-install/bootloader.pm | 8 ++++---- perl-install/common.pm | 8 ++++---- perl-install/detect_devices.pm | 12 ++++++------ perl-install/do_pkgs.pm | 2 +- perl-install/interactive.pm | 10 +++++----- perl-install/lvm.pm | 2 +- 6 files changed, 21 insertions(+), 21 deletions(-) (limited to 'perl-install') 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, 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: (deprecated) force focus on the first entry -=item * B: function returning wether {ok} should be disabled (grayed) +=item * B: function returning whether {ok} should be disabled (grayed) =item * B: 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: tooltip -=item * I: (deprecated) wether it is shown in by default or only in advanced mode +=item * I: (deprecated) whether it is shown in by default or only in advanced mode =item * B: function called when the entry is focused out @@ -577,9 +577,9 @@ ask_from_ takes a list of entries with fields: =item * B: function called when "Ok" is pressed. If it returns false, this entry is focused, otherwise it quits -=item * B: function returning wether it should be disabled (grayed) +=item * B: function returning whether it should be disabled (grayed) -=item * B: function returning wether it should be focused +=item * B: function returning whether it should be focused =item * B: preferred alignment @@ -617,7 +617,7 @@ It has these optional parameters: =item * B: can be a hash or a function, -=item * B: boolean telling wether the tree should be wide open by default +=item * B: boolean telling whether the tree should be wide open by default =item * B: 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 -- cgit v1.2.1