diff options
| author | John Tobey <jtobey@john-edwin-tobey.org> | 2000-10-29 06:37:45 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-29 21:06:27 +0000 |
| commit | e576b45761f07c8c98430e3a5530beb0c09fb876 (patch) | |
| tree | dab86c1696f29fefcac75ca6679d89fb52dd2ee5 /op.c | |
| parent | 89491803eada141bfe112702c189849c457eac87 (diff) | |
| download | perl-e576b45761f07c8c98430e3a5530beb0c09fb876.tar.gz | |
constsub spillage.
Subject: Re: [ID 20001029.002] Not OK: perl v5.7.0 +DEVEL7462 on i686-linux 2.2.16a (UNINSTALLED)
Message-Id: <m13pvSr-000FObC@feynman.localnet>
p4raw-id: //depot/perl@7487
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -4404,10 +4404,12 @@ Perl_op_const_sv(pTHX_ OP *o, CV *cv) if (sv && o->op_next == o) return sv; - if (type == OP_NEXTSTATE || type == OP_NULL || type == OP_PUSHMARK) - continue; - if (type == OP_DBSTATE) - continue; + if (o->op_next != o) { + if (type == OP_NEXTSTATE || type == OP_NULL || type == OP_PUSHMARK) + continue; + if (type == OP_DBSTATE) + continue; + } if (type == OP_LEAVESUB || type == OP_RETURN) break; if (sv) |