projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix all DXChannel->get to ::get
[spider.git]
/
perl
/
Thingy
/
Bye.pm
diff --git
a/perl/Thingy/Bye.pm
b/perl/Thingy/Bye.pm
index a29649664de727adb6d92c25266efdcd0af0f7f6..6d75b618e2832befe2cf4c58088964953266a890 100644
(file)
--- 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};
# 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});
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}) {
# 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')) {
my $uref = Route::get($user);
if ($parent && $uref) {
if ($uref->isa('Route::Node')) {