Lines Matching full:scripts

487           my @scripts;
509           else { # Otherwise look in allowed scripts
516               @scripts = split(/\|/, $^H{charnames_scripts});
523           if(@scripts) {
524               SCRIPTS: foreach my $script (@scripts) {  label
527                       last SCRIPTS;
577       # scripts searches.)
725   my @scripts = map { uc quotemeta } grep { /^[^:]/ } @args;
728   ## If utf8? warnings are enabled, and some scripts were given,
731   if (warnings::enabled('utf8') && @scripts) {
732     for my $script (@scripts) {
753     for (my $i = 0; $i < @scripts; $i++) {
754       $scripts[$i] =~ s/[_ -]//g;
755       $scripts[$i] =~ s/ ( [^\\] ) (?= . ) /$1\\ ?/gx;
763   } @scripts;
764   SCRIPTS: foreach my $this_script (@scripts) {  label
765     my @other_scripts = grep { $_ ne $this_script } @scripts;
770 …warn "charnames: some short character names may clash in [".join(', ', sort @scripts)."], for exam…
771         last SCRIPTS;
776   $^H{charnames_scripts} = join "|", @scripts;  # Stringifiy them as a trie