From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 6 Dec 1999 15:18:30 +0000 (+0000)
Subject: fix for -Dp via $^D (suggested by Stephane Payrard
X-Git-Tag: accepted/trunk/20130322.191538~35816
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d056ab3ff0ffeec5723bde35aed46bd2e1b4bfc3;p=platform%2Fupstream%2Fperl.git

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
--- 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