X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FBye.pm;h=6d75b618e2832befe2cf4c58088964953266a890;hb=d737a53dd9247a0b3c57852dd605047d241beb47;hp=a29649664de727adb6d92c25266efdcd0af0f7f6;hpb=4d22d5fd3874e8292d82f84a777b99ff7d10402a;p=spider.git diff --git a/perl/Thingy/Bye.pm b/perl/Thingy/Bye.pm index a2964966..6d75b618 100644 --- a/perl/Thingy/Bye.pm +++ b/perl/Thingy/Bye.pm @@ -39,7 +39,7 @@ sub handle # fix the interface routing my $intcall = $thing->{user} || $thing->{origin}; - if ($dxchan->{call} eq $thing->{origin}) { + if ($dxchan->{call} eq $thing->{origin} && !$thing->{user}) { RouteDB::delete_interface($intcall); } else { RouteDB::delete($intcall, $dxchan->{call}); @@ -48,7 +48,7 @@ sub handle # pc prot generation my @pc21; if (my $user = $thing->{user}) { - my $parent = Route::Node->get($thing->{origin}); + my $parent = Route::Node::get($thing->{origin}); my $uref = Route::get($user); if ($parent && $uref) { if ($uref->isa('Route::Node')) {