From 27a5024df2116aeca11014d767fdb5f027d89b07 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 28 Jun 2001 14:47:48 +0000
Subject: [PATCH] tiny fix for first msg to a node

---
 perl/DXMsg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1