summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/fileshareset
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/fileshareset')
-rwxr-xr-xperl-install/standalone/fileshareset16
1 files changed, 8 insertions, 8 deletions
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|;
}
}