diff options
| author | fukachan <fukachan> | 2003-12-29 14:57:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-12-29 14:57:04 +0000 |
| commit | deab7a30262cbc9394562bde46ed714540efb676 (patch) | |
| tree | 8003843c061b40a2db73de73f6f479c6a1368a33 /fml/lib/FML | |
| parent | 05076b893e0c1038f7f4bbe2c84f13f9b3246f14 (diff) | |
| download | fml8-deab7a30262cbc9394562bde46ed714540efb676.tar.gz fml8-deab7a30262cbc9394562bde46ed714540efb676.tar.bz2 fml8-deab7a30262cbc9394562bde46ed714540efb676.zip | |
save incoming_message cache file path on memory for later use.
Diffstat (limited to 'fml/lib/FML')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 721a27cd..422369e4 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.197 2003/12/06 04:48:20 fukachan Exp $ +# $FML: Kernel.pm,v 1.198 2003/12/24 14:29:36 fukachan Exp $ # package FML::Process::Kernel; @@ -981,8 +981,15 @@ sub parse_incoming_message if (defined $obj) { my $wh = $obj->open(); - $msg->print($wh) if defined $wh; - $obj->close(); + if (defined $wh) { + $msg->print($wh); + $wh->close(); + $obj->close(); + } + + # save the cache file path. + my $path = $obj->cache_file_path(); + $curproc->set_incoming_message_cache_file_path($path); } } |