- fix format string errors

diff --git a/format-security.patch b/format-security.patch
new file mode 100644 (file)
index 0000000..69a9de0
--- /dev/null
+++ b/format-security.patch
@@ -0,0 +1,20 @@
+--- PerlQt-3.008/PerlQt/Qt.xs~ 2003-09-19 01:46:33.000000000 +0200
++++ PerlQt-3.008/PerlQt/Qt.xs  2013-06-13 23:05:45.549363391 +0200
+@@ -959,7 +959,7 @@
+             delete[] package;
+ 
+         if(SvTRUE(ERRSV))
+-            croak(SvPV_nolen(ERRSV));
++            croak("%s", SvPV_nolen(ERRSV));
+       ST(0) = sv_2mortal(ret);
+       XSRETURN(1);
+     }
+@@ -1081,7 +1081,7 @@
+                 else if(isSuper)
+                         delete[] package;
+                 delete[] savestack;
+-                croak(SvPV_nolen(ERRSV));
++                croak("%s", SvPV_nolen(ERRSV));
+             }
+ 
+             // Success. Cache result.

diff --git a/perl-Qt.spec b/perl-Qt.spec
index 60018f8d0afd602f0d8c637e1440aba832fe9359..abf105b717fe489c5c8d5aede1261d16d1626754 100644 (file)
--- a/perl-Qt.spec
+++ b/perl-Qt.spec
@@ -13,6 +13,7 @@ License:      GPL
 Group:         Development/Languages/Perl
 Source0:       http://www.cpan.org/modules/by-module/Qt/%{pdir}-%{version}.tar.gz
 # Source0-md5: a0cdc0c86b3e79c56f09f2af8c4c2c39
+Patch0:                format-security.patch
 URL:           http://search.cpan.org/dist/Qt/
 BuildRequires: libstdc++-devel
 BuildRequires: perl-devel >= 1:5.8.0
@@ -43,6 +44,8 @@ Interfejs Perla do Qt.
 
 %prep
 %setup -q -n %{pdir}-%{version}
+%patch0 -p1
+
 %{__sed} 's/ -Wmissing-prototypes / /' -i configure
 
 %build