diff options
| author | fukachan <fukachan> | 2002-08-03 10:35:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-03 10:35:08 +0000 |
| commit | 6c250615a382dda02b11da6d0d85c2db5e50fbbd (patch) | |
| tree | 803b970b6cf6cc6fae06024b3772828a16c531c6 /fml/lib/FML/Process/Kernel.pm | |
| parent | e3048b25e467167974d1e68757ec521944a73da0 (diff) | |
| download | fml8-6c250615a382dda02b11da6d0d85c2db5e50fbbd.tar.gz fml8-6c250615a382dda02b11da6d0d85c2db5e50fbbd.tar.bz2 fml8-6c250615a382dda02b11da6d0d85c2db5e50fbbd.zip | |
scheduler_init()
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 399cc3ff..490f86fd 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.119 2002/07/30 04:02:33 fukachan Exp $ +# $FML: Kernel.pm,v 1.120 2002/07/31 13:22:03 fukachan Exp $ # package FML::Process::Kernel; @@ -193,6 +193,20 @@ sub _print_init } +# Descriptions: activate scheduler +# Arguments: OBJ($curproc) HASH_REF($args) +# Side Effects: none +# Return Value: none +sub scheduler_init +{ + my ($curproc, $args) = @_; + + use FML::Process::Scheduler; + my $scheduler = new FML::Process::Scheduler $curproc; + $curproc->{ _scheduler } = $scheduler; +} + + # Descriptions: show help and exit here, (ASAP) # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: longjmp() to help @@ -655,6 +669,7 @@ sub parse_incoming_message if ($config->yes('use_incoming_mail_cache')) { my $dir = $config->{ incoming_mail_cache_dir }; my $modulus = $config->{ incoming_mail_cache_size }; + use File::CacheDir; my $obj = new File::CacheDir { directory => $dir, modulus => $modulus, @@ -1548,6 +1563,7 @@ sub open_outgoing_message_channel if ($config->yes('use_outgoing_mail_cache')) { my $dir = $config->{ outgoing_mail_cache_dir }; my $modulus = $config->{ outgoing_mail_cache_size }; + use File::CacheDir; my $obj = new File::CacheDir { directory => $dir, modulus => $modulus, |