diff options
| author | fukachan <fukachan> | 2002-08-14 03:31:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-14 03:31:55 +0000 |
| commit | f58276939fe963f45c9d803ec182e0815e573eda (patch) | |
| tree | 746e08590e556910e2fd5469b70061205c192bf3 /fml/lib/FML/Process/Kernel.pm | |
| parent | e191040fd7cb8c36b6f74fb7332c1bf45f5c9e56 (diff) | |
| download | fml8-f58276939fe963f45c9d803ec182e0815e573eda.tar.gz fml8-f58276939fe963f45c9d803ec182e0815e573eda.tar.bz2 fml8-f58276939fe963f45c9d803ec182e0815e573eda.zip | |
apply fix_perl_include_path(); after load_config_files() runs to add
ml local library path to @INC.
This is used for ml specific extention e.g. command extension.
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 86bdb11c..dd7b00f0 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.123 2002/08/07 14:58:38 fukachan Exp $ +# $FML: Kernel.pm,v 1.124 2002/08/08 03:09:48 fukachan Exp $ # package FML::Process::Kernel; @@ -749,6 +749,25 @@ sub load_config_files } +# Descriptions: add ml local library path into @INC +# Arguments: OBJ($OBJ) +# Side Effects: update @INC +# Return Value: none +sub fix_perl_include_path +{ + my ($curproc) = @_; + my $config = $curproc->{ config }; + + # XXX update @INC here since we should do after loading configurations. + # update @INC for ml local libraries + if (defined $config->{ ml_home_dir } && + $config->{ ml_home_dir } && + defined $config->{ ml_local_lib_dir }) { + unshift(@INC, $config->{ ml_local_lib_dir }); + } +} + + =head2 C<parse_incoming_message($args)> C<preapre()> method calls this to |