From 0700b00facc1107a390cba5f2a807691e6a8ccc0 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 26 Aug 2001 13:34:20 +0000
Subject: [PATCH] Log the correct callsign in merging

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4b96fe96..6332b8bd 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -858,7 +858,7 @@ sub normal
 				return;
 			}
 
-			Log('DXProt', "Merge request for $field[3] spots and $field[4] WWV from $field[1]");
+			Log('DXProt', "Merge request for $field[3] spots and $field[4] WWV from $field[2]");
 			
 			# spots
 			if ($field[3] > 0) {
-- 
2.43.0