From 8bdb2c82158893b5fdddb7a88f83375411f99679 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 3 Jan 2007 21:12:43 +0000 Subject: [PATCH] check for undefs in config handlers --- perl/DXProtHandle.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index c7554d72..d63b6e00 100644 --- 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) { + 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) { + 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'); } -- 2.43.0