source: for-distributions/trunk/bin/windows/perl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al@ 14489

Last change on this file since 14489 was 14489, checked in by oranfry, 17 years ago

upgrading to perl 5.8

File size: 515 bytes
Line 
1# NOTE: Derived from ../LIB\DynaLoader.pm.
2# Changes made here will be lost when autosplit is run again.
3# See AutoSplit.pm.
4package DynaLoader;
5
6#line 403 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_find_symbol_anywhere.al)"
7sub 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
181;
19# end of DynaLoader::dl_find_symbol_anywhere
Note: See TracBrowser for help on using the repository browser.