Hello community, here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2014-06-10 14:39:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old) and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes 2014-05-13 20:46:58.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new/perl-Sys-Virt.changes 2014-06-10 14:39:18.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Jun 2 09:42:05 MDT 2014 - [email protected] + +- Update to 1.2.5 + - Add all new APIs and constants in libvirt 1.2.5 + +------------------------------------------------------------------- Old: ---- Sys-Virt-1.2.4.tar.gz New: ---- Sys-Virt-1.2.5.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sys-Virt.spec ++++++ --- /var/tmp/diff_new_pack.dshUDu/_old 2014-06-10 14:39:19.000000000 +0200 +++ /var/tmp/diff_new_pack.dshUDu/_new 2014-06-10 14:39:19.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Sys-Virt -Version: 1.2.4 +Version: 1.2.5 Release: 0 %define cpan_name Sys-Virt Summary: Represent and manage a libvirt hypervisor connection ++++++ Sys-Virt-1.2.4.tar.gz -> Sys-Virt-1.2.5.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/Changes new/Sys-Virt-1.2.5/Changes --- old/Sys-Virt-1.2.4/Changes 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/Changes 2014-06-02 12:00:18.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for perl module Sys::Virt +1.2.5 2014-06-02 + + - Add VIR_DOMAIN_{REBOOT,SHUTDOWN}_PARAVIRT constants + - Add virDomainFSFreeze/virDomainFSThaw APIs + - Add virDomainSetTime/virDomainGetTime APIs + 1.2.4 2014-05-06 - Add VIR_FROM_FIREWALL error constant diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/MANIFEST new/Sys-Virt-1.2.5/MANIFEST --- old/Sys-Virt-1.2.4/MANIFEST 2014-05-06 17:32:30.000000000 +0200 +++ new/Sys-Virt-1.2.5/MANIFEST 2014-06-02 12:00:30.000000000 +0200 @@ -6,6 +6,7 @@ examples/dump-xml.pl examples/emulator-pin.pl examples/events.pl +examples/fs-freeze.pl examples/hv-stat.pl examples/node-cpu.pl examples/node-devlist.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/META.yml new/Sys-Virt-1.2.5/META.yml --- old/Sys-Virt-1.2.4/META.yml 2014-05-06 17:32:30.000000000 +0200 +++ new/Sys-Virt-1.2.5/META.yml 2014-06-02 12:00:30.000000000 +0200 @@ -1,7 +1,7 @@ --- #YAML:1.0 name: Sys-Virt abstract: Extension for the libvirt library -version: 1.2.4 +version: 1.2.5 author: - Daniel P. Berrange <[email protected]> license: perl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/MYMETA.json new/Sys-Virt-1.2.5/MYMETA.json --- old/Sys-Virt-1.2.4/MYMETA.json 2014-05-06 17:32:23.000000000 +0200 +++ new/Sys-Virt-1.2.5/MYMETA.json 2014-06-02 12:00:23.000000000 +0200 @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "v1.2.4" + "version" : "v1.2.5" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/MYMETA.yml new/Sys-Virt-1.2.5/MYMETA.yml --- old/Sys-Virt-1.2.4/MYMETA.yml 2014-05-06 17:32:23.000000000 +0200 +++ new/Sys-Virt-1.2.5/MYMETA.yml 2014-06-02 12:00:23.000000000 +0200 @@ -24,4 +24,4 @@ Test::Pod::Coverage: 0 Time::HiRes: 0 XML::XPath: 0 -version: v1.2.4 +version: v1.2.5 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/Makefile.PL new/Sys-Virt-1.2.5/Makefile.PL --- old/Sys-Virt-1.2.4/Makefile.PL 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/Makefile.PL 2014-06-02 12:00:18.000000000 +0200 @@ -3,7 +3,7 @@ # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. -my $libvirtver = "1.2.4"; +my $libvirtver = "1.2.5"; my $stat = system "pkg-config --atleast-version=$libvirtver libvirt"; die "cannot run pkg-config to check libvirt version" if $stat == -1; die "libvirt >= $libvirtver is required\n" unless $stat == 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/README new/Sys-Virt-1.2.5/README --- old/Sys-Virt-1.2.4/README 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/README 2014-06-02 12:00:18.000000000 +0200 @@ -7,6 +7,6 @@ The only pre-requisite for this module is libvirt itself. For installation instructions, consult the INSTALL file. -The current minimum required version of libvirt is 1.2.4 +The current minimum required version of libvirt is 1.2.5 -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/Virt.xs new/Sys-Virt-1.2.5/Virt.xs --- old/Sys-Virt-1.2.4/Virt.xs 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/Virt.xs 2014-06-02 12:00:18.000000000 +0200 @@ -3161,6 +3161,37 @@ OUTPUT: RETVAL +AV * +get_time(dom, flags=0) + virDomainPtr dom; + unsigned int flags; + PREINIT: + long long secs; + unsigned int nsecs; + CODE: + if (virDomainGetTime(dom, &secs, &nsecs, flags) < 0) + _croak_error(); + + RETVAL = (AV *)sv_2mortal((SV*)newAV()); + (void)av_push(RETVAL, virt_newSVull(secs)); + (void)av_push(RETVAL, newSViv(nsecs)); + OUTPUT: + RETVAL + + +void +set_time(dom, secssv, nsecs, flags=0) + virDomainPtr dom; + SV *secssv; + unsigned int nsecs; + unsigned int flags; + PREINIT: + long long secs; + PPCODE: + secs = virt_SvIVll(secssv); + + if (virDomainSetTime(dom, secs, nsecs, flags) < 0) + _croak_error(); HV * get_control_info(dom, flags=0) @@ -4741,6 +4772,67 @@ void +fs_freeze(dom, mountPointsSV, flags=0) + virDomainPtr dom; + SV *mountPointsSV; + unsigned int flags; +PREINIT: + AV *mountPointsAV; + const char **mountPoints; + unsigned int nMountPoints; + unsigned int i; +PPCODE: + mountPointsAV = (AV*)SvRV(mountPointsSV); + nMountPoints = av_len(mountPointsAV) + 1; + if (nMountPoints) { + Newx(mountPoints, nMountPoints, const char *); + for (i = 0 ; i < nMountPoints ; i++) { + SV **mountPoint = av_fetch(mountPointsAV, i, 0); + mountPoints[i] = SvPV_nolen(*mountPoint); + } + } else { + mountPoints = NULL; + } + + if (virDomainFSFreeze(dom, mountPoints, nMountPoints, flags) < 0) { + Safefree(mountPoints); + _croak_error(); + } + + Safefree(mountPoints); + + +void +fs_thaw(dom, mountPointsSV, flags=0) + virDomainPtr dom; + SV *mountPointsSV; + unsigned int flags; +PREINIT: + AV *mountPointsAV; + const char **mountPoints; + unsigned int nMountPoints; + unsigned int i; +PPCODE: + mountPointsAV = (AV*)SvRV(mountPointsSV); + nMountPoints = av_len(mountPointsAV) + 1; + if (nMountPoints) { + Newx(mountPoints, nMountPoints, const char *); + for (i = 0 ; i < nMountPoints ; i++) { + SV **mountPoint = av_fetch(mountPointsAV, i, 0); + mountPoints[i] = SvPV_nolen(*mountPoint); + } + } else { + mountPoints = NULL; + } + if (virDomainFSThaw(dom, mountPoints, nMountPoints, flags) < 0) { + Safefree(mountPoints); + _croak_error(); + } + + Safefree(mountPoints); + + +void send_process_signal(dom, pidsv, signum, flags=0) virDomainPtr dom; SV *pidsv; @@ -7035,6 +7127,7 @@ REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_GUEST_AGENT, SHUTDOWN_GUEST_AGENT); REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_INITCTL, SHUTDOWN_INITCTL); REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_SIGNAL, SHUTDOWN_SIGNAL); + REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_PARAVIRT, SHUTDOWN_PARAVIRT); REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_DEFAULT, REBOOT_DEFAULT); @@ -7042,6 +7135,7 @@ REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_GUEST_AGENT, REBOOT_GUEST_AGENT); REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_INITCTL, REBOOT_INITCTL); REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_SIGNAL, REBOOT_SIGNAL); + REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_PARAVIRT, REBOOT_PARAVIRT); REGISTER_CONSTANT(VIR_DOMAIN_PROCESS_SIGNAL_NOP, PROCESS_SIGNAL_NOP); REGISTER_CONSTANT(VIR_DOMAIN_PROCESS_SIGNAL_HUP, PROCESS_SIGNAL_HUP); @@ -7158,6 +7252,8 @@ REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_KDUMP_SNAPPY, CORE_DUMP_FORMAT_KDUMP_SNAPPY); REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_KDUMP_ZLIB, CORE_DUMP_FORMAT_KDUMP_ZLIB); + REGISTER_CONSTANT(VIR_DOMAIN_TIME_SYNC, TIME_SYNC); + stash = gv_stashpv( "Sys::Virt::DomainSnapshot", TRUE ); REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_DELETE_CHILDREN, DELETE_CHILDREN); REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_DELETE_METADATA_ONLY, DELETE_METADATA_ONLY); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/examples/fs-freeze.pl new/Sys-Virt-1.2.5/examples/fs-freeze.pl --- old/Sys-Virt-1.2.4/examples/fs-freeze.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Sys-Virt-1.2.5/examples/fs-freeze.pl 2014-06-02 12:00:18.000000000 +0200 @@ -0,0 +1,18 @@ +# -*- perl -*- +use strict; +use warnings; +use Sys::Virt; + +die "syntax: $0 URI DOMAIN-NAME MOUNT-POINTS\n" unless int(@ARGV) >= 2; + +my $uri = shift @ARGV; +my $domname = shift @ARGV; + +my @mountpoints = @ARGV; + +print "Addr $uri\n"; +my $con = Sys::Virt->new(address => $uri, readonly => 0); + +my $dom = $con->get_domain_by_name($domname); + +$dom->fs_freeze(\@mountpoints); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/lib/Sys/Virt/Domain.pm new/Sys-Virt-1.2.5/lib/Sys/Virt/Domain.pm --- old/Sys-Virt-1.2.4/lib/Sys/Virt/Domain.pm 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/lib/Sys/Virt/Domain.pm 2014-06-02 12:00:18.000000000 +0200 @@ -473,6 +473,25 @@ =back +=item my ($secs, $nsecs) = $dom->get_time($flags=0); + +Get the current time of the guest, in seconds and nanoseconds. +The C<$flags> parameter is currently unused and defaults to +zero. + +=item $dom->set_time($secs, $nsecs, $flags=0); + +Set the current time of the guest, in seconds and nanoseconds. +The C<$flags> parameter accepts one of + +=over 4 + +=item C<Sys::Virt::Domain::TIME_SYNC> + +Re-sync domain time from domain's RTC. + +=back + =item my @errs = $dom->get_disk_errors($flags=0) Returns a list of all disk errors that have occurred on @@ -1488,6 +1507,20 @@ C<$minimum> bytes in length. C<$flags> is currently unused and defaults to zero. +=item $dom->fs_freeze(\@mountPoints, $flags=0); + +Freeze all the filesystems associated with the C<@mountPoints> +array reference. If <@mountPoints> is an empty list, then all +filesystems will be frozen. C<$flags> is currently +unused and defaults to zero. + +=item $dom->fs_thaw(\@mountPoints, $flags=0); + +Thaw all the filesystems associated with the C<@mountPoints> +array reference. If <@mountPoints> is an empty list, then all +filesystems will be thawed. C<$flags> is currently +unused and defaults to zero. + =item $dom->send_process_signal($pid, $signum, $flags=0); Send the process C<$pid> the signal C<$signum>. The @@ -2799,6 +2832,10 @@ Shutdown by sending SIGTERM to the init process +=item Sys::Virt::Domain::SHUTDOWN_PARAVIRT + +Shutdown by issuing a paravirt power control command + =back =head2 REBOOT CONSTANTS @@ -2828,6 +2865,10 @@ Reboot by sending SIGHUP to the init process +=item Sys::Virt::Domain::REBOOT_PARAVIRT + +Reboot by issuing a paravirt power control command + =back =head2 METADATA CONSTANTS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/lib/Sys/Virt.pm new/Sys-Virt-1.2.5/lib/Sys/Virt.pm --- old/Sys-Virt-1.2.4/lib/Sys/Virt.pm 2014-05-06 17:32:18.000000000 +0200 +++ new/Sys-Virt-1.2.5/lib/Sys/Virt.pm 2014-06-02 12:00:18.000000000 +0200 @@ -78,7 +78,7 @@ use Sys::Virt::DomainSnapshot; use Sys::Virt::Stream; -our $VERSION = '1.2.4'; +our $VERSION = '1.2.5'; require XSLoader; XSLoader::load('Sys::Virt', $VERSION); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.4/perl-Sys-Virt.spec new/Sys-Virt-1.2.5/perl-Sys-Virt.spec --- old/Sys-Virt-1.2.4/perl-Sys-Virt.spec 2014-05-06 17:32:30.000000000 +0200 +++ new/Sys-Virt-1.2.5/perl-Sys-Virt.spec 2014-06-02 12:00:30.000000000 +0200 @@ -1,7 +1,7 @@ # Automatically generated by perl-Sys-Virt.spec.PL Name: perl-Sys-Virt -Version: 1.2.4 +Version: 1.2.5 Release: 1%{?dist}%{?extra_release} Summary: Represent and manage a libvirt hypervisor connection License: GPLv2+ or Artistic -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
