[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / sun4-solaris / auto / DynaLoader / dl_find_symbol_anywhere.al

# NOTE: Derived from ../../lib/DynaLoader.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package DynaLoader;

#line 399 "../../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
Commit	Line	Data
86530b38 AT	1	# NOTE: Derived from ../../lib/DynaLoader.pm.
	2	# Changes made here will be lost when autosplit is run again.
	3	# See AutoSplit.pm.
	4	package DynaLoader;
	5
	6	#line 399 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_find_symbol_anywhere.al)"
	7	sub dl_find_symbol_anywhere
	8	{
	9	my $sym = shift;
	10	my $libref;
	11	foreach $libref (@dl_librefs) {
	12	my $symref = dl_find_symbol($libref,$sym);
	13	return $symref if $symref;
	14	}
	15	return undef;
	16	}
	17
	18	1;
	19	# end of DynaLoader::dl_find_symbol_anywhere