From 0b7baa75894f2371003585829deb31a43b4b6564 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 17 Sep 2003 11:42:22 +0000
Subject: treat C encoding specially when computing utf8 flag, it should not
 trigger utf8 set by itself

---
 perl-install/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index defa956bb..8d7d3a30c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -835,7 +835,7 @@ sub langs_selected {
     my ($locale) = @_; 
     #- adding the UTF-8 flag (if not forced) depends on the selected languages
     $locale->{utf8} ||= l2charset($locale->{lang}) =~ /utf|unicode/
-			|| (uniq map { l2charset($_) } langs($locale->{langs})) > 1;
+			|| (uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs}))) > 1;
 }
 
 sub pack_langs { 
-- 
cgit v1.2.1