diff options
| author | fukachan <fukachan> | 2003-09-14 04:05:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-14 04:05:46 +0000 |
| commit | 0db4bf5bef9912092c3f5188b9de45b773663de1 (patch) | |
| tree | ff662f404d0c77c6f87346b76a1467e25d8e9a3a /fml/lib/FML/Process/Flow.pm | |
| parent | 993c6d4bae0460b409f3a43090616657054a23f1 (diff) | |
| download | fml8-0db4bf5bef9912092c3f5188b9de45b773663de1.tar.gz fml8-0db4bf5bef9912092c3f5188b9de45b773663de1.tar.bz2 fml8-0db4bf5bef9912092c3f5188b9de45b773663de1.zip | |
Process::Flow and Process::Switch classes need to know $curproc
pointer each other.
fix log message duplication mechanism.
define global_tmp_dir_path(), be_quiet() in FML::Process::Kernel.
Diffstat (limited to 'fml/lib/FML/Process/Flow.pm')
| -rw-r--r-- | fml/lib/FML/Process/Flow.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Flow.pm b/fml/lib/FML/Process/Flow.pm index b31a5b04..8f852bfa 100644 --- a/fml/lib/FML/Process/Flow.pm +++ b/fml/lib/FML/Process/Flow.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: Flow.pm,v 1.21 2003/03/14 03:51:48 fukachan Exp $ +# $FML: Flow.pm,v 1.22 2003/09/13 13:05:18 fukachan Exp $ # package FML::Process::Flow; @@ -76,6 +76,9 @@ sub ProcessStart # create a new process object my $process = $pkg->new($args); + # curproc back pointer, used in emergency. + $args->{ curproc } = $process; + # XXX private method to show help ASAP # XXX we need to trap here since $process object is clarified after # XXX $pkg->new() above. |