From: minima <minima>
Date: Thu, 28 Jun 2001 14:47:48 +0000 (+0000)
Subject: tiny fix for first msg to a node
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=27a5024df2116aeca11014d767fdb5f027d89b07;p=spider.git

tiny fix for first msg to a node
---

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;