add patch for printf-style format typechecks (from Robin Barker

<rmb1@cise.npl.co.uk>); fixes for problems so identified

p4raw-id: //depot/perl@4836

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 58271c8b0b..ea34bae31e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -442,7 +442,7 @@ PP(pp_warn)
     if (!tmps || !len)
 	tmpsv = sv_2mortal(newSVpvn("Warning: something's wrong", 26));
 
-    Perl_warn(aTHX_ "%_", tmpsv);
+    Perl_warn(aTHX_ "%"SVf, tmpsv);
     RETSETYES;
 }
 
@@ -500,7 +500,7 @@ PP(pp_die)
     if (!tmps || !len)
 	tmpsv = sv_2mortal(newSVpvn("Died", 4));
 
-    DIE(aTHX_ "%_", tmpsv);
+    DIE(aTHX_ "%"SVf, tmpsv);
 }
 
 /* I/O. */