fix eph_dup

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index ed1c99cda1e429ce27928c5099e9a2e856206596..308160203fbad7651fc2c90c6cc1d181b33b98d9 100644 (file)
--- 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");
                }
        }