diff options
| author | fukachan <fukachan> | 2003-03-16 12:52:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-16 12:52:43 +0000 |
| commit | 51f1ed5ab6cd331cc8ffa14b3d2fc27fa1464d5a (patch) | |
| tree | 3efdbe775bb89d001853eed71540f5185ce9879a /fml/lib | |
| parent | dc69094db2239d1dd5aff95756a208de3df23356 (diff) | |
| download | fml8-51f1ed5ab6cd331cc8ffa14b3d2fc27fa1464d5a.tar.gz fml8-51f1ed5ab6cd331cc8ffa14b3d2fc27fa1464d5a.tar.bz2 fml8-51f1ed5ab6cd331cc8ffa14b3d2fc27fa1464d5a.zip | |
fix usage of File::Sequence
Diffstat (limited to 'fml/lib')
| -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; |