diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-22 12:50:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-22 12:50:41 +0000 |
| commit | 105fb30d562a9897bf6ad9930bc063d4bfff7953 (patch) | |
| tree | ee7b520f3dc8385ef05f9542b53abe9093a0f5af /perl-install/lang.pm | |
| parent | 95e34052c0875c208ff3455c478dc6585579cc1a (diff) | |
| download | drakx-105fb30d562a9897bf6ad9930bc063d4bfff7953.tar drakx-105fb30d562a9897bf6ad9930bc063d4bfff7953.tar.gz drakx-105fb30d562a9897bf6ad9930bc063d4bfff7953.tar.bz2 drakx-105fb30d562a9897bf6ad9930bc063d4bfff7953.tar.xz drakx-105fb30d562a9897bf6ad9930bc063d4bfff7953.zip | |
fix warning message
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 7eaa830fa..ea461793c 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -805,8 +805,8 @@ sub check { }; my @wanted_charsets = uniq map { lang2charset($_) } list(); - $err->("unknown charset $_ ($_ does not exist in \%charsets") foreach difference2(\@wanted_charsets, [ keys %charsets ]); - $warn->("unused charset $_ (given in \%charsets, but not used in \%languages") foreach difference2([ keys %charsets ], \@wanted_charsets); + $err->("unknown charset $_ ($_ does not exist in \%charsets)") foreach difference2(\@wanted_charsets, [ keys %charsets ]); + $warn->("unused charset $_ (given in \%charsets, but not used in \%languages)") foreach difference2([ keys %charsets ], \@wanted_charsets); $warn->("unused entry $_ in \%xim") foreach difference2([ keys %xim ], [ list() ]); |