File Event-1.0-warning.patch of Package perl-Event

--- c/ev.c
+++ c/ev.c
@@ -212,16 +212,16 @@
 	       sv_mortalcopy(ERRSV):
 	       sv_2mortal(newSVpv("?",0)));
     if (WaDEBUGx(wa) >= 4)
-	warn("Event: '%s' died with: %s\n", SvPV(wa->desc,n_a),
-	     SvPV(ERRSV,n_a));
+	warn("Event: '%s' died with: %"SVf"\n", SvPV(wa->desc,n_a),
+	     ERRSV);
     PUSHMARK(SP);
     XPUSHs(event_2sv(fp->ev));
     XPUSHs(err);
     PUTBACK;
     perl_call_sv(eval, G_EVAL|G_DISCARD);
     if (sv_true(ERRSV)) {
-	warn("Event: '%s' died and then $Event::DIED died with: %s\n",
-	     SvPV(wa->desc,n_a), SvPV(ERRSV,n_a));
+	warn("Event: '%s' died and then $Event::DIED died with: %"SVf"\n",
+	     SvPV(wa->desc,n_a), ERRSV);
 	sv_setpv(ERRSV, "");
     }
 }