X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=b051fad35c201533c8451443f66e8c95fcc02c17;hb=56fd7417545aa9de3101434bc88156b5eebb37ab;hp=23c17f0c34177c4913e07e73d86532de462e1a13;hpb=fc3afe4ee8a8369385cd77638bae2fd1ddd40a7e;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 23c17f0c..b051fad3 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1562,13 +1562,16 @@ sub _decode_pc92_call
 	my $build = $part[2] || 0;
 	my $ip = $part[3] || '';
 	
-	if ($version =~ /[,.]/) {
+	if (is_ipaddr($version)) {
 		$ip = $version;
 		$version = 0;
 	}
-	$version =~ s/\D+//g;
+	$version =~ s/\D//g;
 	$build =~ s/^0\.//;
-	$build =~ s/\D+//g;
+	$build =~ s/\D//g;
+	$version ||= 0;
+	$build ||= 0;
+	
 	if ($ip) {
         $ip =~ s/,/:/g;
         $ip =~ s/^::ffff://i;