From 27a5024df2116aeca11014d767fdb5f027d89b07 Mon Sep 17 00:00:00 2001 From: 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.43.0