diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-01-08 19:17:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-08 19:13:43 +0000 |
| commit | f9dc862fc43278b696e6cacef943fbe534e5baba (patch) | |
| tree | b4be8b2e0f1796edceff46f43b46c200c2b1e894 /op.c | |
| parent | 895148d443b27e3e0cafc490f243682cd8a265ef (diff) | |
| download | perl-f9dc862fc43278b696e6cacef943fbe534e5baba.tar.gz | |
[patch] peep() is rude
Message-Id: <200201081917.g08JHoW15789@crypt.compulink.co.uk>
p4raw-id: //depot/perl@14139
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -7035,7 +7035,7 @@ Perl_peep(pTHX_ register OP *o) else if (o->op_next->op_type == OP_RV2AV) { OP* pop = o->op_next->op_next; IV i; - if (pop->op_type == OP_CONST && + if (pop && pop->op_type == OP_CONST && (PL_op = pop->op_next) && pop->op_next->op_type == OP_AELEM && !(pop->op_next->op_private & |