From 4dfa211d4975c84cc2f0d433a3849f9a4bf3bc9f Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 5 Feb 2004 10:27:56 +0000 Subject: this part of code is already executed only in $::isInstall --- perl-install/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index b9dd0ec5a..332779a7d 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -633,8 +633,8 @@ when your installation is complete and you restart your system.")), if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }), format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1.lang::l2name($2) : lang::l2name($_[0]) }, list => \@langs, sort => 0 }, - if_($o_langs_ && !$::move, if_($::isInstall, #- changing utf8 flag on an installed OS is not supported - { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }), + if_($o_langs_ && !$::move, + { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }, { val => \$langs->{all}, type => 'bool', text => N("All languages"), advanced => 1 }, map { { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} }, -- cgit v1.2.1