svn commit: r1408302 - /vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm

[arkurth]

Author: arkurth
Date: Mon Nov 12 14:25:52 2012
New Revision: 1408302

URL: http://svn.apache.org/viewvc?rev=1408302&view=rev
Log:
VCL-641
Fixed regex in get_domain_info to correctly parse the virsh output if there are 
multiple spaces between the ID and name.

Modified:
    vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm

Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm
URL: 
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm?rev=1408302&r1=1408301&r2=1408302&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm Mon Nov 12 
14:25:52 2012
@@ -1779,7 +1779,7 @@ sub get_domain_info {
        my $defined_domains = {};
        my $domain_info_string = '';
        for my $line (@$output) {
-               my ($id, $name, $state) = $line =~ 
/^\s*([\d\-]+)\s(.+?)\s+(\w+|shut off)$/g;
+               my ($id, $name, $state) = $line =~ 
/^\s*([\d\-]+)\s+(.+?)\s+(\w+|shut off)$/g;
                next if (!defined($id));
                
                $defined_domains->{$name}{state} = $state;