gitweb: use Perl built-in utf8 function for UTF-8 decoding.

Signed-off-by: İsmail Dönmez <ismail@pardus.org.tr>
Tested-by: Martin Koegler <mkoegler@auto.tuwien.ac.at>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
İsmail Dönmez 2007-12-04 10:55:41 +02:00 committed by Junio C Hamano
parent dcbcb707c3
commit e5d3de5c45

View File

@ -695,10 +695,9 @@ sub validate_refname {
# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning # in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
sub to_utf8 { sub to_utf8 {
my $str = shift; my $str = shift;
my $res; if (utf8::valid($str)) {
eval { $res = decode_utf8($str, Encode::FB_CROAK); }; utf8::decode($str);
if (defined $res) { return $str;
return $res;
} else { } else {
return decode($fallback_encoding, $str, Encode::FB_DEFAULT); return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
} }