3 my $testing_hook=shift;
7 grep ( $unicodes{lc($_)}=1, split (/,/, $unicodes));
11 if ($unicodes eq "" || $unicodes eq "yes")
17 my ($chset, $structname)=split (/[ \t\r\n]/, $_);
19 if ($unicodes eq "no")
21 next if $structname ne "unicode_ISO8859_1";
25 next unless $unicodes{lc($chset)}
26 || $structname eq "unicode_ISO8859_1";
31 print "X-TEST\tunicode_XTEST\n" if $testing_hook eq "yes";