From 4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 13 Dec 2004 15:56:00 +0000
Subject: better english (writing style rather than spoken one)

---
 perl-install/standalone/fileshareset | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/standalone/fileshareset')

diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index 6d321c7ac..4ca41efac 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -43,7 +43,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't export anything: no nfs, no smb";
+my $no_export_method = "can not export anything: no nfs, no smb";
 
 my %exit_codes = reverse(
   1 => $non_authorised,
@@ -126,8 +126,8 @@ package authorisation;
 my $F_lock;
 sub read_conf {
     my ($exclusive_lock) = @_;
-    open $F_lock, $authorisation_file; # don't care if it's missing
-    flock($F_lock, $exclusive_lock ? 2 : 1) or die "can't 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";
     my %conf;
     foreach (<$F_lock>) {
 	s/#.*//; # remove comments
@@ -231,7 +231,7 @@ sub read() {
 	$mntpoint =~ s/\\(\d{3})/chr(oct $1)/ge;
 
 	# not accepting weird characters that would break the output
-	$mntpoint =~ m/[\0\n\r]/ and die "i won't handle this";
+	$mntpoint =~ m/[\0\n\r]/ and die "i will not handle this";
 	push @l, { mntpoint => $mntpoint, option => $options, raw => $raw_line };
     }
     bless \@l, 'nfs_exports';
@@ -248,7 +248,7 @@ sub write {
 	    $_->{raw} = sprintf("%s %s\n", $mntpoint, $_->{options});
 	}
     }
-    open(my $F, ">$conf_file") or die "can't write $conf_file";
+    open(my $F, ">$conf_file") or die "can not write $conf_file";
     print $F $_->{raw} foreach @$nfs_exports;
 }
 
@@ -304,7 +304,7 @@ sub write {
 EOF
 	}
     }
-    open(my $F, ">$conf_file") or die "can't write $conf_file";
+    open(my $F, ">$conf_file") or die "can not write $conf_file";
     print $F $_->{raw} foreach @$smb_exports;
 }
 
@@ -361,8 +361,8 @@ sub name_mangle {
 		    last A;
 		}
 	    }
-	    $_ or die "can't find a unique name";
-	    # can't find a unique name, dropping the last letter
+	    $_ or die "can not find a unique name";
+	    # can not find a unique name, dropping the last letter
 	    s|(.*).|$1|;
 	}
     }
-- 
cgit v1.2.1