X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=d458fbb724c86eca719e990bf8aef44dcec25ce6;hb=fb654f89bdac04910be1803d72e2ec7a296224a6;hp=3ba13b47193d468328b8ea55d271dfcba8f6986f;hpb=560afad02a093c77df28d9297b5825c465ff963e;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 3ba13b47..d458fbb7 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1558,7 +1558,7 @@ sub _decode_pc92_call
 	my $ip;
 	$part[1] //= '';
 	$part[2] //= '';
-	$part[2] //= '';
+	$part[3] //= '';
 	if ($part[1] =~ /[,.]/) {
 		$ip = $part[1];
 		$part[1] = $part[2] = 0;