projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more fixes
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index f4e799367ca7d2de78e1f0fcb0950c4c71545302..8588d7299e3ba19d09c54303476e6426615d2c06 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-734,7
+734,7
@@
sub next_transno
my $fh = new IO::File;
if (sysopen($fh, $fn, O_RDWR|O_CREAT, 0666)) {
$fh->autoflush(1);
my $fh = new IO::File;
if (sysopen($fh, $fn, O_RDWR|O_CREAT, 0666)) {
$fh->autoflush(1);
- $msgno = $fh->getline;
+ $msgno = $fh->getline
|| '0'
;
chomp $msgno;
$msgno++;
seek $fh, 0, 0;
chomp $msgno;
$msgno++;
seek $fh, 0, 0;