From 8832827e5bec29e9a9e2a62201c6ac7baf9b2fa3 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 19 Nov 2021 17:12:20 +0000
Subject: [PATCH] force all channels to default width 80 columns

---
 perl/DXChannel.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index cbb5477a..2d43b0f0 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -168,6 +168,7 @@ sub alloc
 	$self->{oldstate} = 0;
 	$self->{lang} = $main::lang if !$self->{lang};
 	$self->{func} = "";
+	$self->{width} = 80;
 
 	# add in all the dxcc, itu, zone info
 	my @dxcc = Prefix::extract($call);
-- 
2.34.1