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 829b1d4 commit a3a284fCopy full SHA for a3a284f
pp_hot.c
@@ -4183,7 +4183,8 @@ Perl_do_readline(pTHX)
4183
}
4184
else {
4185
/* XXX on RC builds, push on stack rather than mortalize ? */
4186
- sv = sv_2mortal(newSV(80));
+ sv = newSV_type_mortal(SVt_PV);
4187
+ sv_grow_fresh(sv, 81);
4188
offset = 0;
4189
4190
@@ -4310,7 +4311,8 @@ Perl_do_readline(pTHX)
4310
4311
SvPV_shrink_to_cur(sv);
4312
4313
4314
4315
4316
continue;
4317
4318
0 commit comments