From ef3f7081a3ad6d252841b30ef3dd9e5c767a1047 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 4 Mar 2012 03:06:19 -0600
Subject: Fix FTBFS on Wheezy

---
 PerlTQt/TQt.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'PerlTQt')

diff --git a/PerlTQt/TQt.xs b/PerlTQt/TQt.xs
index a27aa0f..8032e8e 100644
--- a/PerlTQt/TQt.xs
+++ b/PerlTQt/TQt.xs
@@ -959,7 +959,7 @@ XS(XS_AUTOLOAD) {
             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 @@ XS(XS_AUTOLOAD) {
                 else if(isSuper)
                         delete[] package;
                 delete[] savestack;
-                croak(SvPV_nolen(ERRSV));
+                croak("%s", SvPV_nolen(ERRSV));
             }
 
             // Success. Cache result.
-- 
cgit v1.2.1