Work around if found device doesn't serve any service

The underlying UPnP module of perl shall return an empty array in this case