Permalink
Browse files

Only upgrade when necessary

  • Loading branch information...
1 parent 61154ac commit 0f18891dd57b91158a442c0a3154f5aa62604dc4 @Leont Leont committed with Father Chrysostomos Sep 18, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 doio.c
View
2 doio.c
@@ -2275,7 +2275,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
/* suppress warning when reading into undef var (tchrist 3/Mar/00) */
if (! SvOK(mstr))
sv_setpvs(mstr, "");
- sv_upgrade(mstr, SVt_PV);
+ SvUPGRADE(mstr, SVt_PV);
SvPOK_only(mstr);
mbuf = SvGROW(mstr, (STRLEN)msize+1);

0 comments on commit 0f18891

Please sign in to comment.