[packages/perl-Qt] - fix format string errors

[baggins]

commit 4a619ed374c431f52f5c6a616641617e286c1f81
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Thu Jun 13 23:06:24 2013 +0200

    - fix format string errors

 format-security.patch | 20 ++++++++++++++++++++
 perl-Qt.spec          |  3 +++
 2 files changed, 23 insertions(+)
---
diff --git a/perl-Qt.spec b/perl-Qt.spec
index 60018f8..abf105b 100644
--- 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
diff --git a/format-security.patch b/format-security.patch
new file mode 100644
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.
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Qt.git/commitdiff/4a619ed374c431f52f5c6a616641617e286c1f81