From 51f1ed5ab6cd331cc8ffa14b3d2fc27fa1464d5a Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 16 Mar 2003 12:52:43 +0000
Subject: fix usage of File::Sequence

---
 fml/lib/FML/Article/Sequence.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'fml/lib')

diff --git a/fml/lib/FML/Article/Sequence.pm b/fml/lib/FML/Article/Sequence.pm
index cb156f38..07a70561 100644
--- a/fml/lib/FML/Article/Sequence.pm
+++ b/fml/lib/FML/Article/Sequence.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: @template.pm,v 1.7 2003/01/01 02:06:22 fukachan Exp $
+# $FML: Sequence.pm,v 1.1 2003/03/16 10:44:41 fukachan Exp $
 #
 
 package FML::Article::Sequence;
@@ -97,8 +97,7 @@ sub id
 	use File::Sequence;
 	my $sfh = new File::Sequence { sequence_file => $seq_file };
 	if (defined $sfh) {
-	    $n = $sfh->get_id();
-	    $sfh->close();
+	    $n = $sfh->get_id() || 0;
 	}
 
 	return $n;
-- 
cgit v1.2.1