diff options
| -rw-r--r-- | PerlTQt/TQt.xs | 4 |
1 files changed, 2 insertions, 2 deletions
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. |