Lines Matching refs:script

84     my $script = shift;
88     return undef unless defined $script;
89     $script = lc($script);
90     if (exists $COUNTRIES->[$codeset]->{$script})
92         return $COUNTRIES->[$codeset]->{$script};
117     my $script;
121     $script = code2script($code, $inset);
122     return undef if not defined $script;
123     $outcode = script2code($script, $outset);
161     my    $script;
169         ($alpha2, $alpha3, $numeric, $script) = split(/:/, $_, 4);
171         $CODES->[LOCALE_CODE_ALPHA_2]->{$alpha2} = $script;
172         $COUNTRIES->[LOCALE_CODE_ALPHA_2]->{"\L$script"} = $alpha2;
176             $CODES->[LOCALE_CODE_ALPHA_3]->{$alpha3} = $script;
177             $COUNTRIES->[LOCALE_CODE_ALPHA_3]->{"\L$script"} = $alpha3;
182             $CODES->[LOCALE_CODE_NUMERIC]->{$numeric} = $script;
183             $COUNTRIES->[LOCALE_CODE_NUMERIC]->{"\L$script"} = $numeric;
293 zy:zyy:998:Undetermined script
294 zz:zzz:999:Uncoded script