summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al
blob: 2232454ba69fd078c69cea87056c54d7dc2cd332 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# NOTE: Derived from ../LIB\DynaLoader.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package DynaLoader;

#line 403 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_find_symbol_anywhere.al)"
sub dl_find_symbol_anywhere
{
    my $sym = shift;
    my $libref;
    foreach $libref (@dl_librefs) {
	my $symref = dl_find_symbol($libref,$sym);
	return $symref if $symref;
    }
    return undef;
}

1;
# end of DynaLoader::dl_find_symbol_anywhere