projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cc95b07
)
fix for -Dp via $^D (suggested by Stephane Payrard
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 6 Dec 1999 15:18:30 +0000
(15:18 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 6 Dec 1999 15:18:30 +0000
(15:18 +0000)
<stef@adnaccess.com>)
p4raw-id: //depot/perl@4658
mg.c
patch
|
blob
|
history
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