You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@vcl.apache.org by fa...@apache.org on 2012/06/13 19:19:25 UTC
svn commit: r1349965 -
/incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm
Author: fapeeler
Date: Wed Jun 13 17:19:25 2012
New Revision: 1349965
URL: http://svn.apache.org/viewvc?rev=1349965&view=rev
Log:
VCL-595
fixed regex to look at full format of string
Modified:
incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm
Modified: incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm?rev=1349965&r1=1349964&r2=1349965&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm Wed Jun 13 17:19:25 2012
@@ -1651,7 +1651,7 @@ sub get_computer_private_ip_address {
next if ($line =~ /^\s*#/);
# Ignore lines which don't contain the computer name
- next if ($line !~ /$computer_name($|\.|\s)/i);
+ next if ($line !~ /((?:[0-9]{1,3}\.?){4})\s+$computer_name($|\.|\s)/i);
# Extract the IP address from the matching line
my ($ip_address) = $line =~ /\s*((?:[0-9]{1,3}\.?){4})\s/i;