From: minima <minima>
Date: Sat, 19 Feb 2005 22:32:13 +0000 (+0000)
Subject: fix eph_dup
X-Git-Tag: R_1_52~184
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa583f75b6979288c03962354a9be1fdff6a30ad;p=spider.git

fix eph_dup
---

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