home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _8aee66bc580d7c0ed93bfcd330f65b88 < prev    next >
Text File  |  2000-03-24  |  508b  |  20 lines
  1. # NOTE: Derived from ../LIB\DynaLoader.pm.
  2. # Changes made here will be lost when autosplit again.
  3. # See AutoSplit.pm.
  4. package DynaLoader;
  5.  
  6. #line 369 "../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
  20.