X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/00898ccb9b2b100177f631efc1c8235eb9850fc7..24631c4f6929bc824e657b74b2edfada4c8d05b0:/deb.c

diff --git a/deb.c b/deb.c
index df0d606..02a0a7d 100644
--- a/deb.c
+++ b/deb.c
@@ -135,7 +135,7 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max,
 	if (markscan <= PL_markstack + mark_max && *markscan < i) {
 	    do {
 		++markscan;
-		PerlIO_putc(Perl_debug_log, '*');
+		(void)PerlIO_putc(Perl_debug_log, '*');
 	    }
 	    while (markscan <= PL_markstack + mark_max && *markscan < i);
 	    PerlIO_printf(Perl_debug_log, "  ");