diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 10:05:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 10:05:54 +0000 |
| commit | be9180d313f8d12f0b694e575718afb3478cc34b (patch) | |
| tree | e4fed3f8e7cec9c395ef9fa52dced3ed2c852fe9 /dump.c | |
| parent | 6b8eaf932222db04db65aff99717b9c1dbd0a692 (diff) | |
| parent | 971a9dd36d83520d7040365d2791ad56b6d39411 (diff) | |
| download | perl-be9180d313f8d12f0b694e575718afb3478cc34b.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4555
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -512,18 +512,23 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) } switch (o->op_type) { + case OP_AELEMFAST: case OP_GVSV: case OP_GV: - if (cGVOPo) { +#ifdef USE_ITHREADS + Perl_dump_indent(aTHX_ level, file, "PADIX = %d\n", cPADOPo->op_padix); +#else + if (cSVOPo->op_sv) { SV *tmpsv = NEWSV(0,0); ENTER; SAVEFREESV(tmpsv); - gv_fullname3(tmpsv, (GV*)cGVOPo, Nullch); + gv_fullname3(tmpsv, (GV*)cSVOPo->op_sv, Nullch); Perl_dump_indent(aTHX_ level, file, "GV = %s\n", SvPV(tmpsv, n_a)); LEAVE; } else Perl_dump_indent(aTHX_ level, file, "GV = NULL\n"); +#endif break; case OP_CONST: case OP_METHOD_NAMED: |