home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum12.lzh
/
plum12
/
dynaload.plm
< prev
next >
Wrap
Text File
|
1997-09-25
|
811b
|
32 lines
package dynaload;
$_ = 'dynaload';
sub main_loop {
local($userno) = @_;
local($pkg, $sub, @names);
foreach $module (&'property($userno, 'module')) {
$modify{$module} = (stat($module))[9] unless $modify{$module};
next if $modify{$module} == (stat($module))[9];
$modify{$module} = (stat($module))[9];
$pkg = $'package{$module};
next if $pkg eq 'main';
next if $pkg eq 'dynaload';
delete $'package{$module};
$'modulelist = &'remove($'modulelist[$userno], $pkg);
if ($] < 5) {
eval "\@names = keys(\%_${pkg});";
} else {
eval "\@names = keys(\%${pkg}::);";
}
foreach $name (@names) {
$sub = "${pkg}'$name";
next unless defined(&$sub);
undef &$sub;
}
delete $INC{&'expand($module)};
&'import($userno, $module);
}
}