From: minima <minima>
Date: Wed, 3 Jan 2007 21:12:43 +0000 (+0000)
Subject: check for undefs in config handlers
X-Git-Tag: 1.54~72
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bdb2c82158893b5fdddb7a88f83375411f99679;p=spider.git

check for undefs in config handlers
---

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');
 	}