1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- a/wiki.pl
+++ b/wiki.pl
@@ -2611,7 +2611,7 @@ sub ExpireKeepFile {
return;
}
return if (!$anyExpire); # No sections expired
- open (OUT, ">$fname") or die (Ts('cant write %s', $fname) . ": $!");
+ open (OUT, ">$fname") or die (Ts('can\'t write %s', $fname) . ": $!");
foreach (@kplist) {
%tempSection = split(/$FS2/, $_, -1);
$sectName = $tempSection{'name'};
@@ -2906,7 +2906,7 @@ sub ReadFileOrDie {
sub WriteStringToFile {
my ($file, $string) = @_;
- open (OUT, ">$file") or die(Ts('cant write %s', $file) . ": $!");
+ open (OUT, ">$file") or die(Ts('can\'t write %s', $file) . ": $!");
print OUT $string;
close(OUT);
}
@@ -2914,7 +2914,7 @@ sub WriteStringToFile {
sub AppendStringToFile {
my ($file, $string) = @_;
- open (OUT, ">>$file") or die(Ts('cant write %s', $file) . ": $!");
+ open (OUT, ">>$file") or die(Ts('can\'t write %s', $file) . ": $!");
print OUT $string;
close(OUT);
}
|
