--- 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);