e-smith-lib/sme7/e-smith-lib-1.18.0-UTF8.patch2

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
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config.pm    2006-10-11 09:14:18.000000000 -0600
+++ 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
@@ -185,6 +185,7 @@
         return \%config;
     }
 
+    binmode(FH, ":utf8") if $filename =~ m{navigation};
     while (my $line = <FH>)
     {
         chomp $line;
@@ -244,6 +245,7 @@
 
         sysopen (FH, "$filename.$$", O_RDWR | O_CREAT, 0660)
             or die "Cannot open $filename.$$: $!\n";
+       binmode(FH, ":utf8") if $filename =~ m{navigation};
 
         die "Error writing to $filename.$$: $!" unless
         printf FH <<EOF, scalar localtime;
@@ -587,6 +589,7 @@
     # to openlog().
 
     my $msg = shift;
+    $msg =~ s/[^[:ascii:]]/_/g;
     my $program = $0;
 
     setlogsock 'unix';
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';