fix for -Dp via $^D (suggested by Stephane Payrard

<stef@adnaccess.com>)

p4raw-id: //depot/perl@4658

diff --git a/mg.c b/mg.c
index d230531..a7af352 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -406,6 +406,9 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 
     case '\004':               /* ^D */
        sv_setiv(sv, (IV)(PL_debug & 32767));
+#if defined(YYDEBUG) && defined(DEBUGGING)
+       PL_yydebug = (PL_debug & 1);
+#endif
        break;
     case '\005':  /* ^E */
 #ifdef MACOS_TRADITIONAL