Lines Matching refs:try
58 my $try = $want[$i-1];
59 eval { I18N::Langinfo->import($try) };
61 my $got = langinfo(&$try);
62 if (ref $want{$try} && $got =~ $want{$try} || $got eq $want{$try}) {
63 print qq[ok $i - $try is "$got"\n];
65 print qq[not ok $i - $try is "$got" not "$want{$try}"\n];
68 print qq[ok $i - Skip: $try not defined\n];