summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-22 12:50:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-22 12:50:41 +0000
commit105fb30d562a9897bf6ad9930bc063d4bfff7953 (patch)
treeee7b520f3dc8385ef05f9542b53abe9093a0f5af /perl-install/lang.pm
parent95e34052c0875c208ff3455c478dc6585579cc1a (diff)
downloaddrakx-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.pm4
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() ]);