diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-07-09 00:39:41 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-07-09 00:39:41 -0700 |
| commit | 1640e9f0f39bf8108370c2f5d99bb100fe6c9418 (patch) | |
| tree | 95f2c510cd54225bf2a792d66fa72c6084e38ee6 /dump.c | |
| parent | b074547015307bfbdc79cc38e4fa950923593d93 (diff) | |
| download | perl-1640e9f0f39bf8108370c2f5d99bb100fe6c9418.tar.gz | |
fix segfault in -Dx without threads
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1040,7 +1040,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) #ifdef USE_ITHREADS Perl_dump_indent(aTHX_ level, file, "PADIX = %" IVdf "\n", (IV)cPADOPo->op_padix); #else - if ( ! (PL_op->op_flags & OPf_SPECIAL)) { /* not lexical */ + if ( ! (o->op_flags & OPf_SPECIAL)) { /* not lexical */ if (cSVOPo->op_sv) { SV * const tmpsv = newSV(0); ENTER; |