home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum10b9.lzh
/
plum10b9
/
dynaload.plm
< prev
next >
Wrap
Text File
|
1997-06-30
|
797b
|
32 lines
package dynaload;
$_ = 'dynaload';
sub main_loop {
local($userno) = @_;
local($pkg, $sub, %hash);
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 "\%hash = \%_$pkg;";
} else {
eval "\%hash = \%$pkg::;";
}
foreach $name (keys(%hash)) {
$sub = "${pkg}'$name";
next unless defined(&$sub);
undef &$sub;
}
delete $INC{&'expand($module)};
&'import($userno, $module);
}
}