diff options
| author | fukachan <fukachan> | 2003-03-15 09:02:59 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-15 09:02:59 +0000 |
| commit | cd657b38b058fd0db8747ee5cb4eaa718b9d6502 (patch) | |
| tree | c59128cd81d99a49d701f63819ed343d4cab2a39 /fml/lib/File | |
| parent | 3efc6f099d09988e97e7305d7e4306763d1a919f (diff) | |
| download | fml8-cd657b38b058fd0db8747ee5cb4eaa718b9d6502.tar.gz fml8-cd657b38b058fd0db8747ee5cb4eaa718b9d6502.tar.bz2 fml8-cd657b38b058fd0db8747ee5cb4eaa718b9d6502.zip | |
return 0 if sequence file not found
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/Sequence.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm index f05b2574..e9e907b0 100644 --- a/fml/lib/File/Sequence.pm +++ b/fml/lib/File/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: Sequence.pm,v 1.31 2003/01/26 05:57:12 fukachan Exp $ +# $FML: Sequence.pm,v 1.32 2003/01/27 03:53:53 fukachan Exp $ # package File::Sequence; @@ -130,7 +130,7 @@ sub increment_id # XXX-TODO: share codes between get_id() and increment_id() . # read the current sequence number if (defined $rh) { - $id = $rh->getline; + $id = $rh->getline() || 0; $id =~ s/[\s\r\n]*$//; $rh->close; } |