monitoring/PerlModules/NP/Probe/DataSource/NetstatOutput.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
New commits: commit dba7dff8da2f2751f52d0612b74bf127d214c1ab Author: Jan Pazdziora jpazdziora@redhat.com Date: Fri Feb 18 10:46:16 2011 +0100
Changing array with map is ugly, we shall use for instead.
diff --git a/monitoring/PerlModules/NP/Probe/DataSource/NetstatOutput.pm b/monitoring/PerlModules/NP/Probe/DataSource/NetstatOutput.pm index be95ca9..8782c3b 100644 --- a/monitoring/PerlModules/NP/Probe/DataSource/NetstatOutput.pm +++ b/monitoring/PerlModules/NP/Probe/DataSource/NetstatOutput.pm @@ -187,7 +187,9 @@ sub split_ip { ($octets[0], $octets[1], $octets[2], $octets[3], $port) = split($regex, $field);
# Set empty octets to wildcard - map { $_ = '*' unless defined($_) } @octets; + for (@octets) { + $_ = '*' unless defined($_); + }
return (@octets, $port); }
spacewalk-commits@lists.fedorahosted.org