From 105fb30d562a9897bf6ad9930bc063d4bfff7953 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 22 Feb 2002 12:50:41 +0000 Subject: fix warning message --- perl-install/lang.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/lang.pm') 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() ]); -- cgit v1.2.1