[libvirt] [perl PATCH 4/6] Add missing create_checkpoint method
Signed-off-by: Daniel P. Berrangé <berrange(a)redhat.com>
---
Changes | 1 +
lib/Sys/Virt/Domain.pm | 17 +++++++++++++++++
2 files changed, 18 insertions(+)
diff --git a/Changes b/Changes
index 09d1dca..f36d401 100644
--- a/Changes
+++ b/Changes
@@ -9,6 +9,7 @@ Revision history for perl module Sys::Virt
- Add handling for VIR_MIGRATE_PARAM_PARALLEL_CONNECTIONS
constant when invoking migrate
- Add VIR_MIGRATE_PARAM_TLS_DESTINATION constant
+ - Add missing create_checkpoint method on Sys::Virt::Domain
5.10.0 2019-12-03
diff --git a/lib/Sys/Virt/Domain.pm b/lib/Sys/Virt/Domain.pm
index ae909de..d9d64e4 100644
--- a/lib/Sys/Virt/Domain.pm
+++ b/lib/Sys/Virt/Domain.pm
@@ -1965,6 +1965,23 @@ sub get_checkpoint_by_name {
return Sys::Virt::DomainCheckpoint->_new(domain => $self, name => $name);
}
+=item $checkpoint = $dom->create_checkpoint($xml[, $flags])
+
+Create a new checkpoint from the C<$xml>. The C<$flags> parameter accepts
+the B<CHECKPOINT CREATION> constants listed in
C<Sys::Virt::DomainCheckpoints>.
+
+=cut
+
+sub create_checkpoint {
+ my $self = shift;
+ my $xml = shift;
+ my $flags = shift;
+
+ my $checkpoint = Sys::Virt::DomainCheckpoint->_new(domain => $self, xml =>
$xml, flags => $flags);
+
+ return $checkpoint;
+}
+
1;
=item $dom->fs_trim($mountPoint, $minimum, $flags=0);
--
2.23.0