svn commit: r1349965 - /incubator/vcl/trunk/managementnode/lib/VCL/DataStructure.pm

[fapeeler]

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;