fix (un)set/registered

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 23c17f0c34177c4913e07e73d86532de462e1a13..b051fad35c201533c8451443f66e8c95fcc02c17 100644 (file)
--- 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;