X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;fp=perl%2FDXMsg.pm;h=8588d7299e3ba19d09c54303476e6426615d2c06;hb=27a5024df2116aeca11014d767fdb5f027d89b07;hp=f4e799367ca7d2de78e1f0fcb0950c4c71545302;hpb=d08aaa3e89259031f2d9b70a83ae194620870e7f;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f4e79936..8588d729 100644
--- 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);
-		$msgno = $fh->getline;
+		$msgno = $fh->getline || '0';
 		chomp $msgno;
 		$msgno++;
 		seek $fh, 0, 0;