-Put some fixes into the Sys-Virt perl bindings

perl-Sys-Virt/Sys-Virt-fixes.patch

@@ -0,0 +1,18 @@
+--- 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

perl-Sys-Virt/Sys-Virt.spec

@@ -24,6 +24,7 @@ buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
 buildarch: x86_64
 prefix:    %(echo %{_prefix})
 source:    Sys-Virt-0.2.0.tar.gz
+patch:     Sys-Virt-fixes.patch
 
 %description
 The Sys::Virt module provides a Perl XS binding to the libvirt
@@ -39,6 +40,7 @@ a consistent API.
 
 %prep
 %setup -q -n %{pkgname}-%{version} 
+%patch
 chmod -R u+w %{_builddir}/%{pkgname}-%{version}
 
 %build