tiny fix for first msg to a node

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);
-               $msgno = $fh->getline;
+               $msgno = $fh->getline || '0';
                chomp $msgno;
                $msgno++;
                seek $fh, 0, 0;