projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Within Perl_newSVhek, inline most of newSVpvn_share(), because
[p5sagit/p5-mst-13.2.git]
/
op.c
diff --git
a/op.c
b/op.c
index
355b5cd
..
851d35e
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-2142,7
+2142,7
@@
Perl_fold_constants(pTHX_ register OP *o)
register OP *curop;
OP *newop;
I32 type = o->op_type;
- SV *sv;
+ SV *sv = NULL;
int ret = 0;
I32 oldscope;
OP *old_next;
@@
-2243,6
+2243,7
@@
Perl_fold_constants(pTHX_ register OP *o)
#ifndef PERL_MAD
op_free(o);
#endif
+ assert(sv);
if (type == OP_RV2GV)
newop = newGVOP(OP_GV, 0, (GV*)sv);
else