/[smeserver]/rpms/e-smith-lib/sme8/e-smith-lib-1.18.0-UTF8.patch2
ViewVC logotype

Contents of /rpms/e-smith-lib/sme8/e-smith-lib-1.18.0-UTF8.patch2

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Wed Aug 20 21:25:30 2008 UTC (16 years, 2 months ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
New dev stream

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';

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed