t/porting/libperl.t

236             my ($symbol) = $1;
237             return if is_perlish_symbol($symbol);
238             $symbols->{undef}{$symbol}{$symbols->{o}}++;
265                 my ($symbol, $suffix) = ($1, $2);
270                 return if $symbol =~ /^L\.str\d+$/;
271                 $symbols->{data}{const}{$symbol}{$symbols->{o}}++;
276                 my ($dtype, $symbol, $suffix) = ($1, $2, $3);
280                 $symbols->{data}{$dtype}{$symbol}{$symbols->{o}}++;
295             my ($symbol) = $1 =~ s/\$UNIX2003\z//r;
296             return if is_perlish_symbol($symbol);
297             $symbols->{undef}{$symbol}{$symbols->{o}}++;
348     for my $symbol (sort keys %{$symbols{data}{$dtype}}) {
349         $data_symbols{$symbol}++;
393 for my $symbol (sort keys %expected) {
394     if (defined $expected{$symbol} && !$Config{$expected{$symbol}}) {
396         skip("no $symbol");
400     my @o = exists $symbols{undef}{$symbol} ?
401         sort keys %{ $symbols{undef}{$symbol} } : ();
402     ok(@o, "uses $symbol (@o)");
450 for my $symbol (sort keys %unexpected) {
451     if (defined $unexpected{$symbol} && !$Config{$unexpected{$symbol}}) {
453         skip("no $symbol");
457     my @o = exists $symbols{undef}{$symbol} ?
458         sort keys %{ $symbols{undef}{$symbol} } : ();
461     if ($symbol eq 'sprintf' &&
468         is(@o, 0, "uses no $symbol (@o)");