projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
17a3003
)
check for undefs in config handlers
author
minima
<minima>
Wed, 3 Jan 2007 21:12:43 +0000
(21:12 +0000)
committer
minima
<minima>
Wed, 3 Jan 2007 21:12:43 +0000
(21:12 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index c7554d72375a694b9356595c5425008942130a0a..d63b6e00926d70e2edf05b9f233e7eb0b268e5f3 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-1413,10
+1413,14
@@
sub handle_92
$self->broadcast_route_pc9x($origin, undef, $line, 0);
foreach my $r (@rdel) {
$self->broadcast_route_pc9x($origin, undef, $line, 0);
foreach my $r (@rdel) {
+ next unless $r;
+
$self->route_pc21($pcall, undef, $r) if $r->isa('Route::Node');
$self->route_pc17($pcall, undef, $parent, $r) if $r->isa('Route::User');
}
foreach my $r (@radd) {
$self->route_pc21($pcall, undef, $r) if $r->isa('Route::Node');
$self->route_pc17($pcall, undef, $parent, $r) if $r->isa('Route::User');
}
foreach my $r (@radd) {
+ next unless $r;
+
$self->route_pc19($pcall, undef, $r) if $r->isa('Route::Node');
$self->route_pc16($pcall, undef, $parent, $r) if $r->isa('Route::User');
}
$self->route_pc19($pcall, undef, $r) if $r->isa('Route::Node');
$self->route_pc16($pcall, undef, $parent, $r) if $r->isa('Route::User');
}