fix typo

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9e1f7c6f880fbc54a16d4561b342ef0092101a48..ed8d2e5bf67c10c5d87914e50c4ff62916f335a5 100644 (file)
--- 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');
                        }