Add cast in S_printbuf to compensate for the fact that the prototype

for pv_display in maint has not had const added.

p4raw-id: //depot/maint-5.8/perl@26678

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 67678262b4..d1abccaf18 100644
--- a/toke.c
+++ b/toke.c
@@ -355,7 +355,8 @@ STATIC void
 S_printbuf(pTHX_ const char* fmt, const char* s)
 {
     SV* tmp = newSVpvn("", 0);
-    PerlIO_printf(Perl_debug_log, fmt, pv_display(tmp, s, strlen(s), 0, 60));
+    PerlIO_printf(Perl_debug_log, fmt,
+		  pv_display(tmp, (char *)s, strlen(s), 0, 60));
     SvREFCNT_dec(tmp);
 }