format-security.patch

   1 --- PerlQt-3.008/PerlQt/Qt.xs~  2003-09-19 01:46:33.000000000 +0200
   2 +++ PerlQt-3.008/PerlQt/Qt.xs   2013-06-13 23:05:45.549363391 +0200
   3 @@ -959,7 +959,7 @@
   4              delete[] package;
   5
   6          if(SvTRUE(ERRSV))
   7 -            croak(SvPV_nolen(ERRSV));
   8 +            croak("%s", SvPV_nolen(ERRSV));
   9         ST(0) = sv_2mortal(ret);
  10         XSRETURN(1);
  11      }
  12 @@ -1081,7 +1081,7 @@
  13                  else if(isSuper)
  14                          delete[] package;
  15                  delete[] savestack;
  16 -                croak(SvPV_nolen(ERRSV));
  17 +                croak("%s", SvPV_nolen(ERRSV));
  18              }
  19
  20              // Success. Cache result.