summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:03:55 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:07:18 +0200
commita4e46a78d26a05957100cd360b07cd69d13037b0 (patch)
tree8f52a00f444a30d01f90bfac0e879160fdb778e8
parentbbecf42e9490e4857a7c49e905ae736ae4c15e72 (diff)
downloaddrakx-a4e46a78d26a05957100cd360b07cd69d13037b0.tar
drakx-a4e46a78d26a05957100cd360b07cd69d13037b0.tar.gz
drakx-a4e46a78d26a05957100cd360b07cd69d13037b0.tar.bz2
drakx-a4e46a78d26a05957100cd360b07cd69d13037b0.tar.xz
drakx-a4e46a78d26a05957100cd360b07cd69d13037b0.zip
typo fixes
-rw-r--r--perl-install/bootloader.pm8
-rw-r--r--perl-install/common.pm8
-rw-r--r--perl-install/detect_devices.pm12
-rw-r--r--perl-install/do_pkgs.pm2
-rw-r--r--perl-install/interactive.pm10
-rw-r--r--perl-install/lvm.pm2
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