[perl][PATCH 4/4] Add JOB_TIME_ELAPSED_NET constant

[Michal Privoznik <mprivozn@xxxxxxxxxx>]

Signed-off-by: Michal Privoznik <mprivozn@xxxxxxxxxx>
---
 Changes                | 1 +
 Virt.xs                | 1 +
 lib/Sys/Virt/Domain.pm | 6 ++++++
 3 files changed, 8 insertions(+)

diff --git a/Changes b/Changes
index 7a7ba4c..ead8f8e 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@ Revision history for perl module Sys::Virt
  - Add support for VIR_DOMAIN_EVENT_ID_DEVICE_ADDED
    event callback & constants.
  - Add JOB_DOWNTIME_NET constant
+ - Add JOB_TIME_ELAPSED_NET constant
 
 1.2.14 2015-04-09
 
diff --git a/Virt.xs b/Virt.xs
index 04aaf90..debb8f4 100644
--- a/Virt.xs
+++ b/Virt.xs
@@ -7570,6 +7570,7 @@ BOOT:
       REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_BPS, JOB_MEMORY_BPS);
       REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_SETUP_TIME, JOB_SETUP_TIME);
       REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_TIME_ELAPSED, JOB_TIME_ELAPSED);
+      REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_TIME_ELAPSED_NET, JOB_TIME_ELAPSED_NET);
       REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_TIME_REMAINING, JOB_TIME_REMAINING);
 
       REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_TYPE_UNKNOWN, BLOCK_JOB_TYPE_UNKNOWN);
diff --git a/lib/Sys/Virt/Domain.pm b/lib/Sys/Virt/Domain.pm
index 3c04169..f12abd1 100644
--- a/lib/Sys/Virt/Domain.pm
+++ b/lib/Sys/Virt/Domain.pm
@@ -1334,6 +1334,12 @@ Return the stats of the most recently completed job.
 
 The elapsed time in milliseconds
 
+=item Sys::Virt::Domain::JOB_TIME_ELAPSED_NET
+
+Time in miliseconds since the beginning of the migration job NOT
+including the time required to transfer control flow from the
+source host to the destination host.
+
 =item Sys::Virt::Domain::JOB_TIME_REMAINING
 
 The expected remaining time in milliseconds. Only set if the
-- 
2.0.5

--
libvir-list mailing list
libvir-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/libvir-list