(perl #127993) test reporting of multiple conflict markers

[perl5.git] / deb.c

diff --git a/deb.c b/deb.c
index 4ae101d..02a0a7d 100644 (file)
--- 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, "  ");
@@ -191,7 +191,7 @@ static const char * const si_names[] = {
     "DESTROY",
     "WARNHOOK",
     "DIEHOOK",
-    "REQUIRE"
+    "REQUIRE",
     "MULTICALL"
 };
 #endif