Re: [Libguestfs] [PATCH 4/8] Converter: Configure default devices

+sub _configure_default_devices +{ + my ($dom, $default_dom) = @_; + + my ($devices) = $dom->findnodes('/domain/devices'); + + # Remove any existing input, graphics or video devices + foreach my $input ($devices->findnodes('input | video | graphics')) { + $devices->removeChild($input); + } + + my ($input_devices) = $default_dom->findnodes('/domain/devices'); + + # Add new default devices from default XML + foreach my $input ($input_devices->findnodes('input | video | graphics')) { + my $new = $input->cloneNode(1); + $new->setOwnerDocument($devices->getOwnerDocument()); + $devices->appendChild($new); + } +}