--- perl/ext/CXXglue.c.str 2010-02-10 07:43:06.000000000 +0100 +++ perl/ext/CXXglue.c 2010-02-10 07:43:21.000000000 +0100 @@ -1238,7 +1238,7 @@ void pm_perl_throw(const char *msg) { - croak(msg); + croak("%s",msg); } SV* pm_perl_name_of_ret_var() --- perl/ext/RefHash.xs.str 2009-09-03 01:10:56.000000000 +0200 +++ perl/ext/RefHash.xs 2010-02-10 07:48:18.000000000 +0100 @@ -154,7 +154,7 @@ } if (SvROK(keysv)) { if (!RefKeyAllowed(hv,class)) - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); if ((PL_op->op_private & (OPpLVAL_INTRO | OPpLVAL_DEFER)) == OPpLVAL_INTRO && (PL_op->op_flags & OPf_MOD || LVRET)) { HE *he; @@ -256,7 +256,7 @@ RETURN; } else { - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); } } else if (class==my_pkg) { @@ -371,7 +371,7 @@ } RETURN; } else { - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); } } else if (class==my_pkg) { ErrNoRef(*firstkey); @@ -403,7 +403,7 @@ } RETURN; } else { - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); } } else if (class==my_pkg) { ErrNoRef(keysv); @@ -546,7 +546,7 @@ } if (firstR < lastR && SvROK(*firstR)) { if (!RefKeyAllowed(hv,class)) - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); /* the assignment loop is borrowed from the appropriate branch in pp_aassign */ gimme = GIMME_V; @@ -569,9 +569,9 @@ if (!keysv || !SvROK(keysv)) ErrNoRef(keysv); if (SvSTASH(SvRV(keysv)) == my_pkg) - DIE(aTHX_ "RefHash object assignment in list context"); + DIE("%s", aTHX_ "RefHash object assignment in list context"); else - DIE(aTHX_ "Key without value in hash assignment"); + DIE("%s", aTHX_ "Key without value in hash assignment"); } if (assign_other) { @@ -624,7 +624,7 @@ (void)hv_store_ent(hv, keysv, tmp_val, TmpKeyHash(tmp_key)); } while (MARK < SP); } else { - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); } } else if (class==my_pkg) { ErrNoRef(MARK[1]); @@ -632,7 +632,7 @@ do { keysv=*++MARK; if (SvROK(keysv)) - DIE(aTHX_ err_ref); + DIE("%s", aTHX_ err_ref); value=*++MARK; tmp_val = NEWSV(29,0); /* copy of the value */ if (value) sv_setsv(tmp_val,value);