- use 'cannot' instead of 'can not'

- use 'LDAP' instead of 'Ldap'

1 files changed, 6 insertions, 6 deletions

diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index f0b04b149..f53ebd849 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -54,7 +54,7 @@ qq(You are not authorised to use fileshare'ing
 To grant you the rights:
 - put "RESTRICT=no" in $authorisation_file
 - or put user "$username" in group "$authorisation_group");
-my $no_export_method = "can not export anything: no nfs, no smb";
+my $no_export_method = "cannot export anything: no nfs, no smb";
 
 my %exit_codes = reverse(
   1 => $non_authorised,
@@ -142,7 +142,7 @@ my $F_lock;
 sub read_conf {
     my ($exclusive_lock) = @_;
     open $F_lock, $authorisation_file; # do not care if it's missing
-    flock($F_lock, $exclusive_lock ? 2 : 1) or die "can not lock";
+    flock($F_lock, $exclusive_lock ? 2 : 1) or die "cannot lock";
     my %conf;
     foreach (<$F_lock>) {
 	s/#.*//; # remove comments
@@ -267,7 +267,7 @@ sub write {
 	    $_->{raw} = sprintf("%s %s\n", $mntpoint, $_->{options});
 	}
     }
-    open(my $F, ">$conf_file") or die "can not write $conf_file";
+    open(my $F, ">$conf_file") or die "cannot write $conf_file";
     print $F $_->{raw} foreach @$nfs_exports;
 }
 
@@ -323,7 +323,7 @@ sub write {
 EOF
 	}
     }
-    open(my $F, ">$conf_file") or die "can not write $conf_file";
+    open(my $F, ">$conf_file") or die "cannot write $conf_file";
     print $F $_->{raw} foreach @$smb_exports;
 }
 
@@ -380,8 +380,8 @@ sub name_mangle {
 		    last A;
 		}
 	    }
-	    $_ or die "can not find a unique name";
-	    # can not find a unique name, dropping the last letter
+	    $_ or die "cannot find a unique name";
+	    # cannot find a unique name, dropping the last letter
 	    s|(.*).|$1|;
 	}
     }