diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 21:27:10 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 21:27:10 +0000 |
| commit | bcc4607d0b19cd7f9abf7027f44356fe86de267d (patch) | |
| tree | 736eed2dd39e485be617f9f77ab86df7848bf95f /perl-install/lang.pm | |
| parent | 4d37b8692e0c742479a518562f426616bf4929ef (diff) | |
| download | drakx-bcc4607d0b19cd7f9abf7027f44356fe86de267d.tar drakx-bcc4607d0b19cd7f9abf7027f44356fe86de267d.tar.gz drakx-bcc4607d0b19cd7f9abf7027f44356fe86de267d.tar.bz2 drakx-bcc4607d0b19cd7f9abf7027f44356fe86de267d.tar.xz drakx-bcc4607d0b19cd7f9abf7027f44356fe86de267d.zip | |
simplify
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 5ca877661..053e7048c 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -503,10 +503,7 @@ sub fs_options { my $l = $languages{$lang} or return; my $c = $charsets{$l->[1]} or return; my ($iocharset, $codepage) = @$c[3..4]; - +{ - if_($iocharset, iocharset => $iocharset), - if_($codepage, codepage => $codepage), - }; + $iocharset, $codepage; } sub charset { |