From 0b7baa75894f2371003585829deb31a43b4b6564 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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/install_steps.pm | 2 +- perl-install/lang.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 7ac795c2c..25d6d97c9 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -103,7 +103,7 @@ sub selectLanguage { } lang::langs_selected($o->{locale}); - log::l("selectLanguage: pack_langs ", lang::pack_langs($o->{locale}{langs})); + log::l("selectLanguage: pack_langs: ", lang::pack_langs($o->{locale}{langs}), " utf8-flag: ", to_bool($o->{locale}{utf8})); #- for auto_install compatibility with old $o->{keyboard} containing directly $o->{keyboard}{KEYBOARD} $o->{keyboard} = { KEYBOARD => $o->{keyboard} } if $o->{keyboard} && !ref($o->{keyboard}); 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