We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 43cb571 commit 18c083dCopy full SHA for 18c083d
pp_hot.c
@@ -4189,7 +4189,8 @@ Perl_do_readline(pTHX)
4189
}
4190
else {
4191
/* XXX on RC builds, push on stack rather than mortalize ? */
4192
- sv = sv_2mortal(newSV(80));
+ sv = newSV_type_mortal(SVt_PV);
4193
+ sv_grow_fresh(sv, 81);
4194
offset = 0;
4195
4196
@@ -4316,7 +4317,8 @@ Perl_do_readline(pTHX)
4316
4317
SvPV_shrink_to_cur(sv);
4318
4319
4320
4321
4322
continue;
4323
4324
0 commit comments