diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-06 15:18:30 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-06 15:18:30 +0000 |
| commit | d056ab3ff0ffeec5723bde35aed46bd2e1b4bfc3 (patch) | |
| tree | cd511f869eda264fbe55673196317169a2f8036e /mg.c | |
| parent | cc95b07215aac5f846c377abee3672879df99682 (diff) | |
| download | perl-d056ab3ff0ffeec5723bde35aed46bd2e1b4bfc3.tar.gz | |
fix for -Dp via $^D (suggested by Stephane Payrard
<stef@adnaccess.com>)
p4raw-id: //depot/perl@4658
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 |