diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-19 13:43:18 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-19 13:43:18 +0000 |
| commit | b6a15bc5202dd52395ce566b43e1490d38dc2141 (patch) | |
| tree | 53b6e01e403c1d1f0daeac662bb3befcd510857c /dump.c | |
| parent | dad3338cf857b476a573eeba2631a94728f16e97 (diff) | |
| download | perl-b6a15bc5202dd52395ce566b43e1490d38dc2141.tar.gz | |
-Dx could coredump on threaded builds because consts are now
stored in the pad
p4raw-id: //depot/perl@22343
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -659,7 +659,11 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) break; case OP_CONST: case OP_METHOD_NAMED: +#ifndef USE_ITHREADS + /* with ITHREADS, consts are stored in the pad, and the right pad + * may not be active here, so skip */ Perl_dump_indent(aTHX_ level, file, "SV = %s\n", SvPEEK(cSVOPo_sv)); +#endif break; case OP_SETSTATE: case OP_NEXTSTATE: |