e-smith-lib/sme8/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	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';