--- Libvirt.pm.orig	2013-01-04 10:50:57.557250745 +0100
+++ Libvirt.pm	2013-01-16 11:30:39.137995740 +0100
@@ -12,7 +12,7 @@
 
 
     foreach (`virsh list --all`) {
-        if (/^\s+(\d+|\-)\s+(\S+)\s+(\S.+)/) {
+        if (/^\s*(\d+|\-)\s+(\S+)\s+(\S.+)/) {
             my $name = $2;
             my $status = $3;