force all channels to default width 80 columns

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index cbb5477ab50cdba073201d46e08e3597b734454c..2d43b0f07cae85dc472abeb4f01ec307847fb6fc 100644 (file)
--- 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);