diff options
| author | fukachan <fukachan> | 2002-12-24 10:06:24 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-24 10:06:24 +0000 |
| commit | 87b8296098c6089bd0f6c10be22a58d2f7c88de0 (patch) | |
| tree | c0b8a100e04102872b6439d40720735a1680b742 /fml/lib/FML/Process/ThreadTrack.pm | |
| parent | 572ce8e1949edaba96a661c6e7d4c76f40128d1f (diff) | |
| download | fml8-87b8296098c6089bd0f6c10be22a58d2f7c88de0.tar.gz fml8-87b8296098c6089bd0f6c10be22a58d2f7c88de0.tar.bz2 fml8-87b8296098c6089bd0f6c10be22a58d2f7c88de0.zip | |
fix comments. cosmetic changes.
Diffstat (limited to 'fml/lib/FML/Process/ThreadTrack.pm')
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index 05fd2359..b08a0167 100644 --- a/fml/lib/FML/Process/ThreadTrack.pm +++ b/fml/lib/FML/Process/ThreadTrack.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ThreadTrack.pm,v 1.35 2002/10/28 09:58:12 tmu Exp $ +# $FML: ThreadTrack.pm,v 1.36 2002/12/22 03:46:20 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -205,10 +205,10 @@ sub run } -# Descriptions: +# Descriptions: speculate the last id our thread system processed. # Arguments: OBJ($curproc) OBJ($thread) # Side Effects: none -# Return Value: none +# Return Value: NUM sub _speculate_last_id { my ($curproc, $thread) = @_; @@ -231,7 +231,7 @@ sub _speculate_last_id # The condition "$sf_last_modified < $db_last_modified" is always # true since FML::Process::Distribute updates the thread db after - # updaiteing $seq_file. + # updating $seq_file. # XXX 3600 is the magic number. How long time is appropriate ? if (-f $seq_file && ($sf_last_modified + 3600 > $db_last_modified)) { @@ -267,7 +267,7 @@ sub _speculate_last_id } -# Descriptions: speculate maximum sequence number for ML article +# Descriptions: speculate the maximum sequence number for ML articles. # Arguments: OBJ($curproc) STR($spool_dir) # Side Effects: none # Return Value: NUM @@ -353,7 +353,9 @@ sub _close for my $id (@$ra) { # e.g. 100 -> elena/100 - if ($id =~ /^\d+$/) { $id = $thread->_create_thread_id_strings($id);} + if ($id =~ /^\d+$/) { + $id = $thread->_create_thread_id_strings($id); + } # check "elena/100" exists ? if ($thread->exist($id)) { @@ -391,8 +393,7 @@ _EOF_ } -# Descriptions: clean up in the end of the curreen process. -# return error messages et. al. +# Descriptions: dummy. # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: queue flush # Return Value: none |