[libvirt] [perl PATCH] Avoid using /default-pool for test storage pool