From ece0b001419b8e755540eaff4ce3a558fd7d939f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 19 Aug 2001 17:32:53 +0000
Subject: [PATCH] fix typo

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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9e1f7c6f..ed8d2e5b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -906,7 +906,7 @@ sub normal
 		if ($pcno == 39) {		# incoming disconnect
 			if ($field[1] eq $self->{call}) {
 				$self->disconnect(1);
-				eph_dup_regex("^PC(?:1[679]|21).*$field[1]");
+				eph_del_regex("^PC(?:1[679]|21).*$field[1]");
 			} else {
 				dbg("PCPROT: came in on wrong channel") if isdbg('chanerr');
 			}
-- 
2.34.1