diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-02-28 15:04:41 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-02-28 15:04:41 +0000 |
| commit | 7c2ae06dcb448425d6b860ceaf10f767c7c3b7bd (patch) | |
| tree | 363ca3367242400a02b8f26c7d3049fa5cfff7e7 /dump.c | |
| parent | f3302ed352a69628b0e1a41448111855be3c2946 (diff) | |
| download | perl-7c2ae06dcb448425d6b860ceaf10f767c7c3b7bd.tar.gz | |
Fix segfaults when running under -Dx.
p4raw-id: //depot/perl@22406
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -454,7 +454,7 @@ sequence(pTHX_ register OP *o) case OP_COND_EXPR: case OP_RANGE: hv_store(Sequence, key, len, newSVuv(++seq), 0); - for (l = cLOGOPo->op_other; l->op_type == OP_NULL; l = l->op_next) + for (l = cLOGOPo->op_other; l && l->op_type == OP_NULL; l = l->op_next) ; sequence(aTHX_ l); break; @@ -462,13 +462,13 @@ sequence(pTHX_ register OP *o) case OP_ENTERLOOP: case OP_ENTERITER: hv_store(Sequence, key, len, newSVuv(++seq), 0); - for (l = cLOOPo->op_redoop; l->op_type == OP_NULL; l = l->op_next) + for (l = cLOOPo->op_redoop; l && l->op_type == OP_NULL; l = l->op_next) ; sequence(aTHX_ l); - for (l = cLOOPo->op_nextop; l->op_type == OP_NULL; l = l->op_next) + for (l = cLOOPo->op_nextop; l && l->op_type == OP_NULL; l = l->op_next) ; sequence(aTHX_ l); - for (l = cLOOPo->op_lastop; l->op_type == OP_NULL; l = l->op_next) + for (l = cLOOPo->op_lastop; l && l->op_type == OP_NULL; l = l->op_next) ; sequence(aTHX_ l); break; @@ -477,7 +477,7 @@ sequence(pTHX_ register OP *o) case OP_MATCH: case OP_SUBST: hv_store(Sequence, key, len, newSVuv(++seq), 0); - for (l = cPMOPo->op_pmreplstart; l->op_type == OP_NULL; l = l->op_next) + for (l = cPMOPo->op_pmreplstart; l && l->op_type == OP_NULL; l = l->op_next) ; sequence(aTHX_ l); break; |