2
0
mirror of https://github.com/xcat2/xcat-dep.git synced 2024-12-18 01:01:30 +00:00
xcat-dep/perl-Sys-Virt/Sys-Virt-fixes.patch

19 lines
667 B
Diff

--- Virt.xs 2009-03-27 15:45:33.000000000 -0400
+++ /root/Virt.xs 2009-04-10 09:08:00.000000000 -0400
@@ -1337,12 +1337,12 @@
virDomainPtr dom;
virConnectPtr destcon;
unsigned long flags;
- const char *dname;
- const char *uri;
+ const char *dname = SvPOK($arg) ? (char *)SvPV_nolen($arg) : NULL;
+ const char *uri = SvPOK($arg) ? (char *)SvPV_nolen($arg) : NULL;
unsigned long bandwidth;
CODE:
if ((RETVAL = virDomainMigrate(dom, destcon, flags, dname, uri, bandwidth)) == NULL) {
- _croak_error(virConnGetLastError(virDomainGetConnect(dom)));
+ _croak_error(virGetLastError());
}
OUTPUT:
RETVAL