diff options
| author | fukachan <fukachan> | 2003-03-14 03:51:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-14 03:51:48 +0000 |
| commit | 024ceae99f032a573f902a1223e0a92c4fb247d2 (patch) | |
| tree | f8acb33f8549e716ba36af5fe12024dc98e09d0f /fml/lib/FML/Process/Kernel.pm | |
| parent | 32fe5d1aac062bff7371b3ba0e902d11f1939968 (diff) | |
| download | fml8-024ceae99f032a573f902a1223e0a92c4fb247d2.tar.gz fml8-024ceae99f032a573f902a1223e0a92c4fb247d2.tar.bz2 fml8-024ceae99f032a573f902a1223e0a92c4fb247d2.zip | |
define finalize() at the last of flow.
finalize() is only used for debug now.
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index b21362e0..cfbf1d90 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.162 2003/03/06 04:17:19 fukachan Exp $ +# $FML: Kernel.pm,v 1.163 2003/03/06 09:34:15 fukachan Exp $ # package FML::Process::Kernel; @@ -2096,6 +2096,27 @@ sub reset_umask } +# Descriptions: finalize curproc. +# Arguments: OBJ($curproc) +# Side Effects: non +# Return Value: none +sub finalize +{ + my ($curproc) = @_; + my $debug = $curproc->debug_level(); + + if ($debug > 100) { + Log("debug: dump curproc structure"); + eval q{ + use FML::Process::Debug; + my $obj = new FML::Process::Debug; + $obj->dump_curproc($curproc); + }; + LogError($@) if $@; + } +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |