X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FAranea.pm;h=308160203fbad7651fc2c90c6cc1d181b33b98d9;hb=fa583f75b6979288c03962354a9be1fdff6a30ad;hp=ed1c99cda1e429ce27928c5099e9a2e856206596;hpb=6c06ed486e67b3e36e9af4794d2eb84f59f249c4;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index ed1c99cd..30816020 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -157,7 +157,7 @@ sub disconnect
 	$thing->process($self);
 
 	# get rid of any PC16/17/19
-	eph_del_regex("^PC1[679]*$call");
+	DXProt::eph_del_regex("^PC1[679]*$call");
 
 	# do routing stuff, remove me from routing table
 	my $node = Route::Node::get($call);
@@ -168,7 +168,7 @@ sub disconnect
 		# and all my ephemera as well
 		for (@rout) {
 			my $c = $_->call;
-			eph_del_regex("^PC1[679].*$c");
+			DXProt::eph_del_regex("^PC1[679].*$c");
 		}
 	}