dl_find_symbol_anywhere.al

perl 解释器,运行效率高,操作简单方便

# NOTE: Derived from ../../lib/dynaload.pm.  Changes made here will be lost.
package DynaLoader;

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;