#!wml <: # Change both. The array is ordered (for pages like translation status, order of flags, etc). my @LANGUAGES = qw{de en es fr it pl pt ru se}; my %LANGUAGES = ( 'en' => "English", 'de' => "Deutsch", 'es' => "español", 'it' => "Italiano", 'fr' => "français", 'pl' => "polski", 'pt' => "Português", 'ru' => "Русский (Russkij)", 'se' => "svenska", ); our $WML_SRC_FILENAME; # sanity check. for my $lang (@LANGUAGES) { die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals" unless exists $LANGUAGES{$lang}; }; die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals" unless (scalar @LANGUAGES == scalar keys %LANGUAGES); :>