Change 18641 by sky@sky-tibook on 2003/02/02 23:46:24
In any case, never copy this but use the same SV since
if we copy we loose the hash we so badly need.
For op_const we might still need to copy however.
Affected files ...
... //depot/perl/op.c#535 edit
Differences ...
==== //depot/perl/op.c#535 (text) ====
Index: perl/op.c
--- perl/op.c#534~18640~ Sun Feb 2 15:38:40 2003
+++ perl/op.c Sun Feb 2 15:46:24 2003
@@ -6086,7 +6086,7 @@
* for reference counts, sv_upgrade() etc. */
if (cSVOP->op_sv) {
PADOFFSET ix = pad_alloc(OP_CONST, SVs_PADTMP);
- if (SvPADTMP(cSVOPo->op_sv)) {
+ if (o->op_type == OP_CONST && SvPADTMP(cSVOPo->op_sv)) {
/* If op_sv is already a PADTMP then it is being used by
* some pad, so make a copy. */
sv_setsv(PAD_SVl(ix),cSVOPo->op_sv);
End of Patch.
