1 |
slords |
1.1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config.pm |
2 |
|
|
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config.pm 2006-10-11 09:14:18.000000000 -0600 |
3 |
|
|
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config.pm 2008-03-25 13:45:42.000000000 -0600 |
4 |
|
|
@@ -185,6 +185,7 @@ |
5 |
|
|
return \%config; |
6 |
|
|
} |
7 |
|
|
|
8 |
|
|
+ binmode(FH, ":utf8") if $filename =~ m{navigation}; |
9 |
|
|
while (my $line = <FH>) |
10 |
|
|
{ |
11 |
|
|
chomp $line; |
12 |
|
|
@@ -244,6 +245,7 @@ |
13 |
|
|
|
14 |
|
|
sysopen (FH, "$filename.$$", O_RDWR | O_CREAT, 0660) |
15 |
|
|
or die "Cannot open $filename.$$: $!\n"; |
16 |
|
|
+ binmode(FH, ":utf8") if $filename =~ m{navigation}; |
17 |
|
|
|
18 |
|
|
die "Error writing to $filename.$$: $!" unless |
19 |
|
|
printf FH <<EOF, scalar localtime; |
20 |
|
|
@@ -587,6 +589,7 @@ |
21 |
|
|
# to openlog(). |
22 |
|
|
|
23 |
|
|
my $msg = shift; |
24 |
|
|
+ $msg =~ s/[^[:ascii:]]/_/g; |
25 |
|
|
my $program = $0; |
26 |
|
|
|
27 |
|
|
setlogsock 'unix'; |