From: minima <minima>
Date: Sun, 19 Aug 2001 17:32:53 +0000 (+0000)
Subject: fix typo
X-Git-Tag: R_1_48~87
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ece0b001419b8e755540eaff4ce3a558fd7d939f;p=spider.git

fix typo
---

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');
 			}