home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum10b8.lzh / plum10b8 / dynaload.plm < prev    next >
Text File  |  1997-06-25  |  705b  |  27 lines
  1. package dynaload;
  2.  
  3. $_ = 'dynaload';
  4.  
  5. sub main_loop {
  6.   local($i, $pkg, $sub, *hash);
  7.   for ($i = 0; $i < scalar(@'username); $i++) {
  8.     foreach $module (&'property($i, 'module')) {
  9.       $modify{$module} = (stat($module))[9] unless $modify{$module};
  10.       next if $modify{$module} == (stat($module))[9];
  11.       $modify{$module} = (stat($module))[9];
  12.       $pkg = $'package{$module};
  13.       next if $pkg eq 'main';
  14.       delete $'package{$module};
  15.       $'modulelist = &'remove($'modulelist[$i], $pkg);
  16.       eval "*hash = *_$pkg;";
  17.       foreach $name (keys(%hash)) {
  18.         $sub = "${pkg}'$name";
  19.         next unless defined(&$sub);
  20.         undef &$sub;
  21.       }
  22.       &'import($i, $module);
  23.     }
  24.   }
  25. }
  26.  
  27.