From 035224f3937828fc7453178ada82e2006facdee4 Mon Sep 17 00:00:00 2001
From: Fabian Kurz <fabian@fkurz.net>
Date: Sun, 30 Jun 2019 17:24:50 +0200
Subject: [PATCH] don't produce a warning on prefixes longer than 5 characters

---
 yfksubs.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/yfksubs.pl b/yfksubs.pl
index 1ffa1e2..937107a 100644
--- a/yfksubs.pl
+++ b/yfksubs.pl
@@ -1261,9 +1261,10 @@ sub callinfo {
 		# added whitespaces behind it so any previous entries will be
 		# overwritten.  
 		my @dxcc = &dxcc($call);	# dxcc array gets filled
+        my $sprefix = substr($prefix, 0, 5);
 		addstr($dxwin, 0,9, $dxcc[0]." " x (25-length($dxcc[0])));
 		addstr($dxwin, 0,40, $dxcc[7]." " x (5-length($dxcc[7])));
-		addstr($dxwin, 0,51, $prefix." " x (5-length($prefix)));
+		addstr($dxwin, 0,51, $sprefix." " x (5-length($sprefix)));
 		addstr($dxwin, 0,61, $dxcc[2]." " x (2-length($dxcc[2])));
 		addstr($dxwin, 0,69, $dxcc[1]." " x (2-length($dxcc[1])));
 		addstr($dxwin, 1,5, $dxcc[4]." " x (7-length($dxcc[4])));