1 files changed, 1 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index ba5833fad4..3d613d54ae 100644
--- a/sv.c
+++ b/sv.c
@@ -5640,8 +5640,7 @@ static void
 do_report_used(pTHXo_ SV *sv)
 {
     if (SvTYPE(sv) != SVTYPEMASK) {
-	/* XXX Perhaps this ought to go to Perl_debug_log, if DEBUGGING. */
-	PerlIO_printf(PerlIO_stderr(), "****\n");
+	PerlIO_printf(Perl_debug_log, "****\n");
 	sv_dump(sv);
     }
 }