Fix [perl #31971] local $^D gives noise

p4raw-id: //depot/perl@23365

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index e5eedc55ea..d8e17dd877 100644
--- a/mg.c
+++ b/mg.c
@@ -2071,7 +2071,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
     case '\004':	/* ^D */
 #ifdef DEBUGGING
 	s = SvPV_nolen(sv);
-	PL_debug = get_debug_opts(&s) | DEBUG_TOP_FLAG;
+	PL_debug = get_debug_opts(&s, 0) | DEBUG_TOP_FLAG;
 	DEBUG_x(dump_all());
 #else
 	PL_debug = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) | DEBUG_TOP_FLAG;