Re: Fix UTF Encoding issue
Monday 03 December 2007 Tarihinde 23:46:24 yazmıştı:
Show 30 quoted lines
> Jakub Narebski wrote:
> > On Mon, 3 Dec 2007, Martin Koegler wrote:
> >> On Mon, Dec 03, 2007 at 04:06:48AM -0800, Jakub Narebski wrote:
> >>> Ismail Dönmez <ismail@pardus.org.tr> writes:
> >>>> Monday 03 December 2007 Tarihinde 12:14:43 yazm??t?:
> >>>>> Benjamin Close <Benjamin.Close@clearchain.com> writes:
> >>>>>> - eval { $res = decode_utf8($str, Encode::FB_CROAK); };
> >>>>>> - if (defined $res) {
> >>>>>> - return $res;
> >>>>>> - } else {
> >>>>>> - return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
> >>>>>> - }
> >>>>>> + eval { return ($res = decode_utf8($str, Encode::FB_CROAK)); };
> >>>>>> + return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
> >>>>>> }
> >>
> >> This version is broken on Debian sarge and etch. Feeding a UTF-8 and a
> >> latin1 encoding of the same character sequence yields to different
> >> results.
>
> For the record, this was on a debian sid machine.
>
> #perl --version
> This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi
>
> and the result of not using the original patch was:
>
> <h1>Software error:</h1>
> <pre>Cannot decode string with wide characters at
> /usr/lib/perl/5.8/Encode.pm line 166. </pre>Can you try the attached patch?
--
Never learn by your mistakes, if you do you may never dare to try again.
--- gitweb/gitweb.perl 2007-11-28 11:33:14.000000000 +0200
+++ gitweb/gitweb.perl 2007-11-28 11:33:42.000000000 +0200
@@ -2159,7 +2159,7 @@
}
my $owner = $gcos;
$owner =~ s/[,;].*$//;
- return to_utf8($owner);
+ return $owner;
}
## ......................................................................