projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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] || '';
my $build = $part[2] || 0;
my $ip = $part[3] || '';
- if (
$version =~ /[,.]/
) {
+ if (
is_ipaddr($version)
) {
$ip = $version;
$version = 0;
}
$ip = $version;
$version = 0;
}
- $version =~ s/\D
+
//g;
+ $version =~ s/\D//g;
$build =~ s/^0\.//;
$build =~ s/^0\.//;
- $build =~ s/\D+//g;
+ $build =~ s/\D//g;
+ $version ||= 0;
+ $build ||= 0;
+
if ($ip) {
$ip =~ s/,/:/g;
$ip =~ s/^::ffff://i;
if ($ip) {
$ip =~ s/,/:/g;
$ip =~ s/^::ffff://i;