summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Process/ThreadTrack.pm
diff options
context:
space:
mode:
authortmu <tmu>2002-10-28 09:58:12 +0000
committertmu <tmu>2002-10-28 09:58:12 +0000
commiteeddb1ab65d0b97d91c48a945f5e5be6eeedeef5 (patch)
tree95fe3f3b1bb12e5e0af0a982d864827c2d3eb64e /fml/lib/FML/Process/ThreadTrack.pm
parent4310152345d64fbb4f32c74c77ea968c242d47e2 (diff)
downloadfml8-eeddb1ab65d0b97d91c48a945f5e5be6eeedeef5.tar.gz
fml8-eeddb1ab65d0b97d91c48a945f5e5be6eeedeef5.tar.bz2
fml8-eeddb1ab65d0b97d91c48a945f5e5be6eeedeef5.zip
fix db_update cannot get last_id from _speculate_last_id() use seqfile
Diffstat (limited to 'fml/lib/FML/Process/ThreadTrack.pm')
-rw-r--r--fml/lib/FML/Process/ThreadTrack.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm
index fabfdf45..f29562d6 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.33 2002/09/11 23:18:16 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.34 2002/09/22 14:56:54 fukachan Exp $
#
package FML::Process::ThreadTrack;
@@ -233,12 +233,14 @@ sub _speculate_last_id
if (-f $seq_file &&
($sf_last_modified + 3600 > $db_last_modified)) {
print STDERR "read seqfile\n"; sleep 3;
+ my $last_id = 0;
eval q{
use File::Sequence;
my $sfh = new File::Sequence { sequence_file => $seq_file };
- return $sfh->get_id();
+ $last_id = $sfh->get_id();
};
warn($@) if $@;
+ return $last_id;
}
else {
my $last_id = 0;