- $build =~ s/\D+//g;
- $ip =~ s/,/:/g if $ip;
- return ($call, $is_node, $is_extnode, $here, $version, $build, $ip);
+ $build =~ s/\D//g;
+ 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+0, $build+0, $ip);