- use 'cannot' instead of 'can not'

- use 'LDAP' instead of 'Ldap'

4 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/fs/loopback.pm b/perl-install/fs/loopback.pm
index 9d77c7302..8620e6068 100644
--- a/perl-install/fs/loopback.pm
+++ b/perl-install/fs/loopback.pm
@@ -86,7 +86,7 @@ sub getFree {
 }
 
 #- returns the size of the loopback file if it already exists
-#- returns -1 is the loopback file can not be used
+#- returns -1 is the loopback file cannot be used
 sub verifFile {
     my ($dir, $file, $part) = @_;
     -e "$dir$file" and return -s "$dir$file";
diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm
index 3c0696b75..f2e9eac40 100644
--- a/perl-install/fs/mount.pm
+++ b/perl-install/fs/mount.pm
@@ -125,7 +125,7 @@ sub umount {
 	run_program::run('umount', '2>', \$err, $mntpoint) or die N("error unmounting %s: %s", $mntpoint, common::to_utf8($err));
     };
 
-    substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- do not care about error, if we can not read, we will not manage to write... (and mess mtab)
+    substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- do not care about error, if we cannot read, we will not manage to write... (and mess mtab)
 }
 
 sub part {
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index affb18033..5bfd2403b 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -296,7 +296,7 @@ sub create_display_box {
 
     my $sep_count = @parts - 1;
     #- ratio used to compute initial partition pixel width (each partition should be > min_width)
-    #- though, the pixel/sectors ratio can not be the same for all the partitions
+    #- though, the pixel/sectors ratio cannot be the same for all the partitions
     my $initial_ratio = $totalsectors ? ($width - @parts * $minwidth - $sep_count) / $totalsectors : 1;
 
     my $vbox = Gtk2::VBox->new;
@@ -428,7 +428,7 @@ sub display_choices {
 
     @solutions = @sol if @sol > 1;
     log::l("solutions: ", int @solutions);
-    @solutions or $o->ask_warn(N("Partitioning"), N("I can not find any room for installing")), die 'already displayed';
+    @solutions or $o->ask_warn(N("Partitioning"), N("I cannot find any room for installing")), die 'already displayed';
 
     log::l('HERE: ', join(',', map { $solutions{$_}[1] } @solutions));
 
@@ -574,7 +574,7 @@ sub main {
                " (all solutions found: " . join('', map { $_->[1] } @solutions) . ")");
         @solutions = @sol if @sol > 1;
         log::l("solutions: ", int @solutions);
-        @solutions or $o->ask_warn(N("Partitioning"), N("I can not find any room for installing")), die 'already displayed';
+        @solutions or $o->ask_warn(N("Partitioning"), N("I cannot find any room for installing")), die 'already displayed';
         log::l('HERE: ', join(',', map { $_->[1] } @solutions));
         $o->ask_from_({ 
             title => N("Partitioning"),
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index bb90bdfe1..75a851047 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -390,8 +390,8 @@ sub set_isFormatted {
 #- do this before modifying $part->{fs_type}
 sub check {
     my ($fs_type, $_hd, $part) = @_;
-    $fs_type eq "jfs" && $part->{size} < MB(16) and die N("You can not use JFS for partitions smaller than 16MB");
-    $fs_type eq "reiserfs" && $part->{size} < MB(32) and die N("You can not use ReiserFS for partitions smaller than 32MB");
+    $fs_type eq "jfs" && $part->{size} < MB(16) and die N("You cannot use JFS for partitions smaller than 16MB");
+    $fs_type eq "reiserfs" && $part->{size} < MB(32) and die N("You cannot use ReiserFS for partitions smaller than 32MB");
 }
 
 sub guessed_by_mount() {