diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-08-09 01:35:36 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-15 14:39:00 +0000 |
| commit | ecae49c0159ae97ce603c12b29343825a18c1cf1 (patch) | |
| tree | 8eb613c65db9c76c9409a2b79d6310981705ea87 /perl.c | |
| parent | b4bb75a86da28602798e256d17a5b953131d0cfb (diff) | |
| download | perl-ecae49c0159ae97ce603c12b29343825a18c1cf1.tar.gz | |
Re: Storable Error
Message-ID: <20030809003535.C20130@plum.flirble.org>
p4raw-id: //depot/perl@21729
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1699,7 +1699,8 @@ S_run_body(pTHX_ I32 oldscope) if (!PL_restartop) { DEBUG_x(dump_all()); - PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); + if (!DEBUG_q_TEST) + PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%"UVxf"\n", PTR2UV(thr))); @@ -2321,7 +2322,7 @@ Perl_get_debug_opts(pTHX_ char **s) int i = 0; if (isALPHA(**s)) { /* if adding extra options, remember to update DEBUG_MASK */ - static char debopts[] = "psltocPmfrxu HXDSTRJvC"; + static char debopts[] = "psltocPmfrxu HXDSTRJvCAq"; for (; isALNUM(**s); (*s)++) { char *d = strchr(debopts,**s); |