diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-14 14:58:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-14 14:58:21 +0000 |
| commit | ddcf8bc1d288a9d34b94e354ef9f98b84591150c (patch) | |
| tree | bca1a1dd61affb917b99a2afd6809442441e4458 /perl.c | |
| parent | 3679267a1146847531c6d6f9fc1a5988659ca0aa (diff) | |
| download | perl-ddcf8bc1d288a9d34b94e354ef9f98b84591150c.tar.gz | |
Fix [perl #31971] local $^D gives noise
p4raw-id: //depot/perl@23365
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2373,7 +2373,7 @@ NULL #ifdef DEBUGGING int -Perl_get_debug_opts(pTHX_ char **s) +Perl_get_debug_opts(pTHX_ char **s, bool givehelp) { static char *usage_msgd[] = { " Debugging flag values: (see also -d)", @@ -2420,7 +2420,7 @@ Perl_get_debug_opts(pTHX_ char **s) i = atoi(*s); for (; isALNUM(**s); (*s)++) ; } - else { + else if (givehelp) { char **p = usage_msgd; while (*p) PerlIO_printf(PerlIO_stdout(), "%s\n", *p++); } @@ -2534,7 +2534,7 @@ Perl_moreswitches(pTHX_ char *s) #ifdef DEBUGGING forbid_setid("-D"); s++; - PL_debug = get_debug_opts(&s) | DEBUG_TOP_FLAG; + PL_debug = get_debug_opts(&s, 1) | DEBUG_TOP_FLAG; #else /* !DEBUGGING */ if (ckWARN_d(WARN_DEBUGGING)) Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), |