X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProtHandle.pm;fp=perl%2FDXProtHandle.pm;h=105181675ec85b9df10d2685b48821c205a3039b;hp=20aaf5a8e6cb7c78e3f0aff54caecf93e95cfcf5;hb=edc4edfd6dce0f2f76c03cb651bc49ba268ef03c;hpb=5a9cdeef2a8f38736d9b51f96e121c1fe63aeeff

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 20aaf5a8..10518167 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1568,8 +1568,12 @@ sub _decode_pc92_call
 	$version =~ s/\D+//g;
 	$build =~ s/^0\.//;
 	$build =~ s/\D+//g;
-	$ip =~ s/,/:/g if $ip;
-	return ($call, $is_node, $is_extnode, $here, $version+0, $build+0, $ip);
+	if ($ip) {
+		$ip =~ s/,/:/g;
+		$ip =~ s/^::ffff://i;
+	}
+	dbg("$icall = '" . join("', '", $call, $is_node, $is_extnode, $here, $version, $build, $ip) . "'") if isdbg('pc92');
+	return ($call, $is_node, $is_extnode, $here, $version, $build, $ip);
 }
 
 # decode a pc92 call: flag call : version : build
@@ -1617,7 +1621,6 @@ sub _add_thingy
 	my @rout;
 
 	# remove spurious IPV6 prefix on IPV4 addresses
-	$ip =~ s/^::ffff:// if $ip;
 	$build ||= 0;
 	$version ||= 0;