From eeddb1ab65d0b97d91c48a945f5e5be6eeedeef5 Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Mon, 28 Oct 2002 09:58:12 +0000
Subject: fix db_update cannot get last_id from _speculate_last_id() use
 seqfile

---
 fml/lib/FML/Process/ThreadTrack.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'fml/lib/FML/Process/ThreadTrack.pm')

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;
-- 
cgit v1.2.1