projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
be more careful about undefs
[spider.git]
/
perl
/
Thingy
/
Rt.pm
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 13756c2265bd48b2bb84d5c8f7aeda2e9a1b609d..fd67e9cc4600532e18307240cd29c4610a6351e9 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-131,7
+131,10
@@
sub handle_cf
next if $call eq $main::mycall;
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
next if $call eq $main::mycall;
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
- push @pc21, $ref->del($parent) if $ref;
+ if ($ref) {
+ my $r = $ref->del($parent);
+ push @pc21, $r if $r;
+ }
}
}
if ($add) {
}
}
if ($add) {
@@
-139,7
+142,8
@@
sub handle_cf
next if $call eq $main::mycall;
RouteDB::update($call, $chan_call);
my $here = $in{$call};
next if $call eq $main::mycall;
RouteDB::update($call, $chan_call);
my $here = $in{$call};
- push @pc19, $parent->add($call, 0, $here);
+ my $r = $parent->add($call, 0, $here);
+ push @pc19, $r if $r;
}
}
$thing->{pc21n} = \@pc21 if @pc21;
}
}
$thing->{pc21n} = \@pc21 if @pc21;