X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=d8bb6ac834f00a0a8083cdb60f027b698048cba3;hb=24550808f9ee4ba5cf6a720bb364977f7ed586af;hp=d63b6e00926d70e2edf05b9f233e7eb0b268e5f3;hpb=8bdb2c82158893b5fdddb7a88f83375411f99679;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index d63b6e00..d8bb6ac8 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1411,7 +1411,7 @@ sub handle_92
 		return;
 	}
 
-	$self->broadcast_route_pc9x($origin, undef, $line, 0);
+	$self->broadcast_route_pc9x($pcall, undef, $line, 0);
 	foreach my $r (@rdel) {
 		next unless $r;