Lines Matching refs:keys
1149 foreach (keys %UPPER) {
1153 foreach (keys %lower) {
1156 foreach (keys %BoThCaSe) {
1165 foreach my $class (keys %posixes) {
1171 debug "UPPER = ", disp_chars(sort { ord $a <=> ord $b } keys %UPPER), "\n";
1172 debug "lower = ", disp_chars(sort { ord $a <=> ord $b } keys %lower), "\n";
1173 debug "BoThCaSe = ", disp_chars(sort { ord $a <=> ord $b } keys %BoThCaSe), "\n";
1174 debug "Unassigned = ", disp_chars(sort { ord $a <=> ord $b } keys %Unassigned), "\n";
1178 foreach my $x (sort { ord $a <=> ord $b } keys %UPPER) {
1207 foreach my $x (sort { ord $a <=> ord $b } keys %lower) {
1238 for (keys %UPPER, keys %lower, keys %BoThCaSe) {
2110 foreach my $err (keys %!) {
2165 foreach my $err (keys %!) {
2329 foreach my $x (sort { ord $a <=> ord $b } keys %UPPER) {
2397 foreach my $x (sort { ord $a <=> ord $b } keys %lower) {
2503 && grep { $_ == $test_num } keys %problematical_tests)
2508 ? scalar(keys $Known_bad_locale{$test_num}->%*)
2510 my $adjusted_failures = scalar(keys $Problem{$test_num}->%*)
2517 join " ", keys $Known_bad_locale{$test_num}->%*, "\n";
2531 scalar(keys $Problem{$test_num}->%*),
2708 my @f = sort keys %{ $Problem{$_} };