Lines Matching refs:locales
66 # First we'll do a lot of taint checking for locales.
249 # Find locales.
251 debug "# Scanning for locales...\n";
258 my $locales = <<EOF;
309 # These cause heartburn. Broken locales?
310 $locales =~ s/Svenska Swedish:sv:fi se:1 15\n//;
311 $locales =~ s/Thai:th:th:11 tis620\n//;
402 foreach my $locale (split(/\n/, $locales)) {
589 # in some locales, say, eacute and E may test equal.
662 # The == (among other ops) used to warn for locales
750 # Similarly losing EBCDIC locales include cs_cz, cs_CZ,
758 # non-EBCDIC locales: in many European countries before the
823 "# failed in ", (@f == 1 ? "that locale" : "those locales"),
827 # If your users are not using these locales you are safe for the moment,
838 # Tell which locales were okay and which were not.
857 "# The following locales\n#\n",
861 warn "# None of your locales were fully okay.\n";
869 "# The following locales\n#\n",
873 warn "# None of your locales were broken.\n";
880 warn "#\n# The following locales\n#\n",
884 "# because UTF-8 and locales do not work together in Perl.\n#\n";