X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;h=c96d787e41ba3f27010ef46b385d72765a84e2df;hp=69085f358a146eee342562bf5cfc5b2ae8d9ba4f;hb=47158622c85b4b2ee92f60027e7ef6e1f83b0301;hpb=6de7782a48aba612f214f54bad5a9dc9584ce1c0

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 69085f35..c96d787e 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -2307,6 +2307,8 @@ sub disconnect
 			eph_del_regex("^PC1[679].*$c");
 		}
 	}
+
+	RouteDB::delete_interface($call);
 	
 	# remove them from the pc19list as well
 	while (my ($k,$v) = each %pc19list) {