diff options
| -rw-r--r-- | fml/lib/FML/Article/Sequence.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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; |